OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
G. Nebe, E. M. Rains and N. J. A. Sloane, Self-Dual Codes and Invariant Theory, Springer, Berlin, 2006.
FORMULA
G.f.: u1/u2 where u1 := subs(x=x^8, f); f := 1 + 35*x^2 + 237*x^3 + 943*x^4 + 2250*x^5 + 4089*x^6 + 5659*x^7 + 6323*x^8 + 5680*x^9 + 4057*x^10 + 2311*x^11 + 909*x^12 + 246*x^13 + 27*x^14 + x^15; u2 := (1-x^8)^3*(1-x^16 )^3*(1-x^32 )^2.
MAPLE
f(x):= (1 +35*x^2 +237*x^3 +943*x^4 +2250*x^5 +4089*x^6 +5659*x^7 +6323*x^8 +5680*x^9 +4057*x^10 +2311*x^11 +909*x^12 +246*x^13 + 27*x^14 +x^15)/((1-x)^3*(1-x^2)^3*(1-x^4)^2);
seq(coeff(series( f(x), x, n+1), x, n), n = 0..30); # G. C. Greubel, Feb 02 2020
MATHEMATICA
CoefficientList[Series[(1 +35*x^2 +237*x^3 +943*x^4 +2250*x^5 +4089*x^6 +5659*x^7 +6323*x^8 +5680*x^9 +4057*x^10 +2311*x^11 +909*x^12 +246*x^13 + 27*x^14 +x^15)/((1-x)^3*(1-x^2)^3*(1-x^4)^2), {x, 0, 30}], x] (* G. C. Greubel, Feb 02 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 09 2004
STATUS
approved