A122517 G.f.: 1/(1 - x^3 - 2 x^4 + x^5)

1, 0, 0, 1, 2, -1, 1, 4, 2, -3, 7, 9, -3, -1, 26, 8, -16, 27, 61, -26, -13, 131, 69, -126, 131, 344, -119, -190, 732, 438, -772, 471, 2092, -628, -1511, 3806, 3085, -4859, 1412, 12208, -2495, -11391, 19891, 20509, -28589, -396, 71682, -7462, -78083, 99479

Offset

0,5

Comments

Based on characteristic polynomial x^5 - x^2 - 2x + 1.

Links

Table of n, a(n) for n=0..49.

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

Cf. A006054, A006053.

Sequence in context: A129033 A054090 A239456 * A256098 A177276 A123199

Adjacent sequences: A122514 A122515 A122516 * A122518 A122519 A122520

Keyword

sign

Author

Roger L. Bagula, Sep 16 2006

Extensions

Edited by N. J. A. Sloane, Oct 01 2006

Status

approved