OFFSET
0,2
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
KEYWORD
sign,easy,less
AUTHOR
Roger L. Bagula, Mar 17 2009
STATUS
approved