OFFSET
0,2
LINKS
MATHEMATICA
f[x_] = -4 + 6 x + 2 x^2 - x^3; g[x_] = ExpandAll[x^3*f[1/x]]; Table[ SeriesCoefficient[Series[x/(g[x]), {x, 0, 30}], n], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 31 2006
EXTENSIONS
Edited by N. J. A. Sloane, Nov 04 2006
STATUS
approved