A158375 Let p(x) = 1063*x + 867*x^2 + 676*x^3 + 322*x^4 + 124*x^5 + 36*x^6 + 7*x^7 + x^8, expansion of the reciprocal polynomial of p(x).

1, -7, 13, 37, -181, -99, 2300, -5788, -568, 35480, -66280, -155716, 1283293, -3625851, 2493973, 18732949, -59514957, -61554751, 951463080, -3002878824, 2592617664, 13134072768, -45989528256, -32014204536, 686734832905

Offset

0,2

Links

Table of n, a(n) for n=0..24.

Mathematica

f[x_] = 1063 x + 867 x^2 + 676 x^3 + 322 x^4 + 124 x^5 + 36 x^6 + 7 x^7 + x^8;
g[x] = ExpandAll[x^8*f[1/x]];
a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, n}], n], {n, 0, 25}]

Crossrefs

Sequence in context: A052378 A090607 A201597 * A144729 A123250 A062591

Adjacent sequences: A158372 A158373 A158374 * A158376 A158377 A158378

Keyword

sign,easy,less

Author

Roger L. Bagula, Mar 17 2009

Status

approved