login
A124024
G.f.: 1/(1+2*x-9*x^2-10*x^3+5*x^4).
0
1, -2, 13, -34, 160, -486, 2007, -6618, 25639, -88340, 331216, -1168012, 4305373, -15368994, 56150145, -201727446, 733589392, -2644379378, 9593038099, -34640959450, 125507521051, -453631399272, 1642455703008, -5939313991704, 21496877712505, -77754867323906
OFFSET
0,2
MATHEMATICA
f[x_] = 5 - 10 x - 9 x^2 + 2 x^3 + x^4; g[x_] = ExpandAll[x^4*f[1/x]]; Table[ SeriesCoefficient[Series[x/(g[x]), {x, 0, 30}], n], {n, 0, 30}]
CoefficientList[Series[1/(1+2x-9x^2-10x^3+5x^4), {x, 0, 30}], x] (* or *) LinearRecurrence[{-2, 9, 10, -5}, {1, -2, 13, -34}, 30] (* Harvey P. Dale, May 20 2021 *)
CROSSREFS
Sequence in context: A296293 A190816 A084910 * A102229 A254965 A038501
KEYWORD
sign
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Nov 04 2006
STATUS
approved