A124024 G.f.: 1/(1+2*x-9*x^2-10*x^3+5*x^4).

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

Links

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

Index entries for linear recurrences with constant coefficients, signature (-2,9,10,-5).

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

Adjacent sequences: A124021 A124022 A124023 * A124025 A124026 A124027

Keyword

sign

Author

Roger L. Bagula and Gary W. Adamson, Oct 31 2006

Extensions

Edited by N. J. A. Sloane, Nov 04 2006

Status

approved