Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A122518
G.f.: 1/(1 -2 x^3 - x^4 + x^5)
0
1, 0, 0, 2, 1, -1, 4, 4, -3, 6, 13, -6, 5, 35, -5, -9, 81, 20, -58, 158, 130, -177, 238, 476, -382, 169, 1367, -526, -520, 3285, 146, -2933, 6576, 4097, -9005, 10073, 17703, -20489, 7044, 54484, -33348, -24104, 136501, -19256, -136040, 282246, 122093, -427837, 447708, 662472
OFFSET
0,4
COMMENTS
Based on characteristic polynomial x^5 - 2x^2 - x + 1.
MATHEMATICA
p[x_] := x^5 - 2x^2 - x + 1 q[x_] := ExpandAll[x^5*p[1/x]] Table[ SeriesCoefficient[ Series[x/q[x], {x, 0, 50}], n], {n, 0, 50}]
CROSSREFS
Sequence in context: A322115 A294217 A123246 * A346031 A129704 A144460
KEYWORD
sign,easy
AUTHOR
Roger L. Bagula, Sep 16 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 01 2006
STATUS
approved