A135644 Expansion of reciprocal polynomial of (-1-x^5+x^6)^4 * (-1-2*x^5+x^6)*(-9-34*x^5+x^6).

1, 40, 1382, 47052, 1599931, 54398036, 1849534086, 62884161136, 2138061495013, 72694091262236, 2471599117332784, 84034370478932992, 2857168612929602684, 97143733405564093636, 3302886955031732949874, 112298157125325742290668

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

Sequence in context: A239189 A188253 A049396 * A165371 A162877 A163223

Adjacent sequences: A135641 A135642 A135643 * A135645 A135646 A135647

Keyword

nonn,less

Author

Roger L. Bagula, Jan 31 2008

Extensions

Edited by Michel Marcus, Apr 02 2013

Status

approved