OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..650
MATHEMATICA
f[x_] = (-1 - x^5 + x^6)^4*(-1 - 2*x^5 + x^6)*(-9 - 34x^5 + x^6); g[x_] = Expand[x^36*f[1/x]]; a = Table[ SeriesCoefficient[Series[1/g[x], {x, 0, 30}], n], {n, 0, 30}]
PROG
(PARI) f(x)=((-1-x^5+x^6)^4*(-1-2*x^5+x^6)*(-9-34*x^5+x^6));
v=Vec(1/polrecip(f(x))+O(x^66))
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jan 31 2008
EXTENSIONS
Edited by Michel Marcus, Apr 02 2013
STATUS
approved