|
| |
|
|
A122517
|
|
G.f.: 1/(1 - x^3 - 2 x^4 + x^5)
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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
| Cf. A006054, A006053.
Sequence in context: A127420 A129033 A054090 * A177276 A123199 A157125
Adjacent sequences: A122514 A122515 A122516 * A122518 A122519 A122520
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 16 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 01 2006
|
| |
|
|
