A147660 Expansion of 1/(1-x-x^2+x^9-x^11).
1, 1, 2, 3, 5, 8, 13, 21, 34, 54, 87, 140, 225, 362, 582, 936, 1505, 2420, 3892, 6259, 10065, 16186, 26029, 41858, 67313, 108248, 174077, 279938, 450176, 723941, 1164190, 1872167, 3010685, 4841568, 7785863, 12520667, 20134840, 32379408, 52070245, 83735639, 134657658, 216546802, 348235059
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (1, 1, 0, 0, 0, 0, 0, 0, -1, 0, 1).
Programs
-
Mathematica
f[x_] = -1 + x^2 - x^9 - x^10 + x^11; g[x] = ExpandAll[x^11*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]