proposed
approved
Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
proposed
approved
editing
proposed
Partially edited and extended by R. J. Mathar, Mar 02 2010)
approved
editing
(MAGMAMagma) m:=25; R<x>:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!(7*x*(11 + 9*x + 75*x^2 + 8*x^3 + 162*x^4 + 42*x^5 + 146*x^6 + 6*x^7 + 51*x^8 + 5*x^9 + 3*x^10)/((1 - x)^3*(1 + x)^3*(1 + x^2)^3))); // G. C. Greubel, Sep 19 2018
proposed
approved
editing
proposed
G. C. Greubel, <a href="/A165943/b165943.txt">Table of n, a(n) for n = 0..5000</a>
CoefficientList[Series[7*x*(11 + 9*x + 75*x^2 + 8*x^3 + 162*x^4 + 42*x^5 + 146*x^6 + 6*x^7 + 51*x^8 + 5*x^9 + 3*x^10)/((1 - x)^3*(1 + x)^3*(1 + x^2)^3), {x, 0, 50}], x] (* G. C. Greubel, Sep 19 2018 *)
(PARI) x='x+O('x^50); concat([0], Vec(7*x*(11 + 9*x + 75*x^2 + 8*x^3 + 162*x^4 + 42*x^5 + 146*x^6 + 6*x^7 + 51*x^8 + 5*x^9 + 3*x^10)/((1 - x)^3*(1 + x)^3*(1 + x^2)^3))) \\ G. C. Greubel, Sep 19 2018
(MAGMA) m:=25; R<x>:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!(7*x*(11 + 9*x + 75*x^2 + 8*x^3 + 162*x^4 + 42*x^5 + 146*x^6 + 6*x^7 + 51*x^8 + 5*x^9 + 3*x^10)/((1 - x)^3*(1 + x)^3*(1 + x^2)^3))); // G. C. Greubel, Sep 19 2018
approved
editing
editing
approved
a(n) = 3*a(n-4) - 3*a(n-8) + a(n-12), n>12. - Conjectured by R. J. Mathar, Mar 02 2010, proven proved by Robert Israel, Apr 20 2016
proposed
editing
editing
proposed