OFFSET
0,9
COMMENTS
A001920 with zeros interspersed. - Joerg Arndt, Dec 19 2022
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
KEYWORD
sign,less
AUTHOR
Roger L. Bagula and Gary W. Adamson, Mar 07 2009
STATUS
approved