A147659 Expansion of 1/(1-x-x^2-x^10+x^12).

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 90, 146, 237, 385, 625, 1015, 1648, 2676, 4345, 7055, 11456, 18602, 30205, 49046, 79639, 129315, 209977, 340953, 553627, 898959, 1459697, 2370203, 3848649, 6249296, 10147379, 16476944, 26754661, 43443243

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1).

Mathematica

f[x_] = 1 - x^2 - x^10 - x^11 + x^12;
g[x] = ExpandAll[x^12*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
CoefficientList[Series[1/(1-x-x^2-x^10+x^12), {x, 0, 40}], x] (* Harvey P. Dale, May 31 2012 *)

Crossrefs

Sequence in context: A074317 A077371 A077372 * A005181 A177376 A120659

Adjacent sequences: A147656 A147657 A147658 * A147660 A147661 A147662

Keyword

nonn,easy

Author

Roger L. Bagula, Nov 09 2008

Status

approved