|
%I #12 Dec 19 2022 04:32:45
%S 1,0,0,0,0,0,0,0,-759,0,0,0,-2576,0,0,0,575322,0,0,0,3910368,0,0,0,
%T -429457542,0,0,0,-4448043600,0,0,0,315448497771,0,0,0,4479379753856,
%U 0,0,0,-227641291795533,0,0,0,-4209068502252768,0,0,0,161001433246525844
%N Let p(x) = 1 + 759*x^8 + 2576*x^12 + 759*x^16 + x^24, expansion of the reciprocal polynomial of p(x).
%C A001920 with zeros interspersed. - _Joerg Arndt_, Dec 19 2022
%t f[x_] = 1 + 759*x^8 + 2576*x^12 + 759*x^16 + x^24;
%t g[x] = ExpandAll[x^24*f[1/x]];
%t a = Table[SeriesCoefficient[ Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
%Y Cf. A001920.
%K sign,less
%O 0,9
%A _Roger L. Bagula_ and _Gary W. Adamson_, Mar 07 2009
|
