OFFSET
1,2
COMMENTS
Ratio limit is the golden mean.
FORMULA
a(n) = expansion(1/(1 - 4x + 5x^2 - 6x^4 + 6x^5 - x^6 - 2x^7 + x^8))
MATHEMATICA
Clear[p, q, x, n, a]; p[x_] = Expand[((x^2 - x - 1)*(x^2 - 1)*(x^2 - 2*x + 1)*(x^2 - x + 1)) ]; q[x_] = ExpandAll[1/(x^8*p[1/x])]; a = Table[SeriesCoefficient[Series[q[x], {x, 0, 30}], n], {n, 0, 30}]
CoefficientList[Series[1/(1-4x+5x^2-6x^4+6x^5-x^6-2x^7+x^8), {x, 0, 30}], x] (* Harvey P. Dale, Apr 06 2011 *)
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Oct 13 2008
STATUS
approved