OFFSET
1,4
COMMENTS
By construction, a(n) is an integer so 420*a(n)^2 + 420*a(n) + 1 = j(n)^2. The sequence j(n) starts: 1, 1, 29, 71, 379, 461, 2449, 5851, ...
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
FORMULA
From R. J. Mathar, Nov 13 2009: (Start)
a(n) = a(n-1) + 82*a(n-4) - 82*a(n-5) - a(n-8) + a(n-9).
G.f.: x^3*(x^2+1)*(x^4+2*x^3+14*x^2+2*x+1)/((1-x)*(x^8-82*x^4+1)). (End)
MATHEMATICA
Rest[CoefficientList[Series[x^3*(x^2+1)*(x^4+2*x^3+14*x^2+2*x+1)/((1-x)*(x^8-82*x^4+1)), {x, 0, 30}], x]] (* G. C. Greubel, Jul 15 2018 *)
PROG
(PARI) x='x+O('x^30); concat([0, 0], Vec(x^3*(x^2+1)*(x^4+2*x^3+14*x^2 +2*x +1)/((1-x)*(x^8-82*x^4+1)))) \\ G. C. Greubel, Jul 15 2018
(Magma) m:=25; R<x>:=PowerSeriesRing(Integers(), m); [0, 0] cat Coefficients(R!(x^3*(x^2+1)*(x^4+2*x^3+14*x^2+2*x+1)/((1-x)*(x^8- 82*x^4 +1)))); // G. C. Greubel, Jul 15 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Pierre CAMI, Mar 27 2005
EXTENSIONS
Extended by R. J. Mathar, Nov 13 2009
STATUS
approved