OFFSET
0,2
LINKS
Index entries for linear recurrences with constant coefficients, signature (-2,9,10,-5).
MATHEMATICA
f[x_] = 5 - 10 x - 9 x^2 + 2 x^3 + x^4; g[x_] = ExpandAll[x^4*f[1/x]]; Table[ SeriesCoefficient[Series[x/(g[x]), {x, 0, 30}], n], {n, 0, 30}]
CoefficientList[Series[1/(1+2x-9x^2-10x^3+5x^4), {x, 0, 30}], x] (* or *) LinearRecurrence[{-2, 9, 10, -5}, {1, -2, 13, -34}, 30] (* Harvey P. Dale, May 20 2021 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 31 2006
EXTENSIONS
Edited by N. J. A. Sloane, Nov 04 2006
STATUS
approved