login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A158376 Let p(x) = -332914995*x - 121099959*x^2 - 54262863*x^3 - 37433763*x^4 - 1488468*x^5 - 4442464*x^6 + 462362*x^7 - 241686*x^8 + 63542*x^9 + 26*x^10 + 3732*x^11 + 776*x^12 + 113*x^13 + 45*x^14 + x^15 + x^16, the sequence is the expansion of 1/(x^16*p(1/x)). 0
1, -1, -44, -24, 1341, 1755, -21538, -89654, 215873, 1978283, 4362946, -41493994, -146595004, 199773652, 4332900506, 399542726, -31367063828, -291436749508, 599072094382, 2087538126074, 21203843886148, -108990928314404 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

MATHEMATICA

f[x_] := -332914995 x - 121099959 x^2 - 54262863 x^3 - 37433763 x^4 - 1488468 x^5 - 4442464 x^6 + 462362 x^7 - 241686 x^8 + 63542 x^9 + 26 x^10 + 3732 x^11 + 776 x^12 + 113 x^13 + 45 x^14 + x^15 + x^16;

g[x] = ExpandAll[x^16*f[1/x]];

a = Table[SeriesCoefficient[ Series[1/g[x], {x, 0, n}], n], {n, 0, 25}]

CROSSREFS

Sequence in context: A033977 A033364 A108213 * A036182 A109644 A165865

Adjacent sequences: A158373 A158374 A158375 * A158377 A158378 A158379

KEYWORD

sign,easy,less

AUTHOR

Roger L. Bagula, Mar 17 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 5 09:25 EST 2023. Contains 360084 sequences. (Running on oeis4.)