A157830 Let p(x) = 1 + 759*x^8 + 2576*x^12 + 759*x^16 + x^24, expansion of the reciprocal polynomial of p(x).

1, 0, 0, 0, 0, 0, 0, 0, -759, 0, 0, 0, -2576, 0, 0, 0, 575322, 0, 0, 0, 3910368, 0, 0, 0, -429457542, 0, 0, 0, -4448043600, 0, 0, 0, 315448497771, 0, 0, 0, 4479379753856, 0, 0, 0, -227641291795533, 0, 0, 0, -4209068502252768, 0, 0, 0, 161001433246525844

Offset

0,9

Comments

A001920 with zeros interspersed. - Joerg Arndt, Dec 19 2022

Links

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

Mathematica

f[x_] = 1 + 759*x^8 + 2576*x^12 + 759*x^16 + x^24;
g[x] = ExpandAll[x^24*f[1/x]];
a = Table[SeriesCoefficient[ Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]

Crossrefs

Cf. A001920.

Sequence in context: A221340 A290738 A104336 * A105547 A001293 A001380

Adjacent sequences: A157827 A157828 A157829 * A157831 A157832 A157833

Keyword

sign,less

Author

Roger L. Bagula and Gary W. Adamson, Mar 07 2009

Status

approved