OFFSET
0,5
COMMENTS
Based on characteristic polynomial x^5 - x^2 - 2x + 1.
MATHEMATICA
p[x_] := x^5 - x^2 - 2x + 1 q[x_] := ExpandAll[x^5*p[1/x]] Table[ SeriesCoefficient[ Series[x/q[x], {x, 0, 50}], n], {n, 0, 50}]
CROSSREFS
KEYWORD
sign
AUTHOR
Roger L. Bagula, Sep 16 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 01 2006
STATUS
approved