OFFSET
2,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..1000
FORMULA
G.f.: x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x+1)/(4*x^2-6*x+1). - Vladeta Jovovic, Jul 02 2003
MATHEMATICA
Drop[CoefficientList[Series[x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x + 1)/(4*x^2 - 6*x + 1), {x, 0, 50}], x], 2] (* G. C. Greubel, Apr 22 2018 *)
PROG
(PARI) x='x+O('x^30); Vec(x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x+1)/(4*x^2 -6*x+1)) \\ G. C. Greubel, Apr 22 2018
(Magma) m:=25; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(x^2*(2*x+1)^2/(1-8*x)/(2*x^2-7*x+1)/(4*x^2-6*x+1))); // G. C. Greubel, Apr 22 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
R. H. Hardin, Mar 22 2002
STATUS
approved