%I #8 Jul 14 2021 03:20:21
%S 1,0,0,0,46,0,0,0,1012,0,0,0,14168,0,0,0,141726,0,0,0,1078792,0,0,
%T 8388608,6503112,0,0,0,31946816,0,0,192937984,130905236,0,0,0,
%U 457207478,0,0,2122317824,1392036360,0,0,0,3784029000,0,0,15049162752,9401213016,0,0
%N Theta series of D*_23 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022076/b022076.txt">Table of n, a(n) for n = 0..1782</a>
%e G.f. = 1 + 46*q^4 + 1012*q^8 + ...
%o (Magma)
%o L := Dual(Lattice("D", 23));
%o B := Basis(ThetaSeriesModularFormSpace(L), 70);
%o S := [1, 0, 0, 0, 46, 0, 0, 0, 1012, 0, 0, 0];
%o Coefficients(&+[B[i] * S[i] : i in [1..12]]); // _Andy Huchala_, Jul 14 2021
%K nonn
%O 0,5
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 14 2021