%I A157828
%S A157828 1,0,0,0,0,0,264,0,0,440,0,0,69672,0,0,232320,0,0,18193472,0,0,
%T A157828 91977600,0,0,4699183680,0,0,32281638400,0,0,1199677704192,0,0,
%U A157828 10587785894400,0,0,302398212602368,0,0,3322258906644480,0,0
%V A157828 1,0,0,0,0,0,-264,0,0,-440,0,0,69672,0,0,232320,0,0,-18193472,0,0,
%W A157828 -91977600,0,0,4699183680,0,0,32281638400,0,0,-1199677704192,0,0,
%X A157828 -10587785894400,0,0,302398212602368,0,0,3322258906644480,0,0
%N A157828 Coefficients of polynomial expansion of Golay C_12 enumeration Polynomial:
p(x)=24 + 440*x^3 + 264*x^6 + x^12; q(x)=x^12*(p(1/x).
%F A157828 p(x)=24 + 440*x^3 + 264*x^6 + x^12;
%F A157828 q(x)=x^12*(p(1/x);
%F A157828 a(n)=coefficients(q(x)).
%t A157828 f[x_] = 24 + 440*x^3 + 264*x^6 + x^12;
%t A157828 g[x] = ExpandAll[x^12*f[1/x]];
%t A157828 a = Table[SeriesCoefficient[ Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
%Y A157828 Sequence in context: A023314 A054802 A108823 this_sequence A065570 A050240
A105683
%Y A157828 Adjacent sequences: A157825 A157826 A157827 this_sequence A157829 A157830
A157831
%K A157828 sign
%O A157828 0,7
%A A157828 Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Mar
07 2009
|