%I #8 Jul 14 2021 04:27:57
%S 1,0,0,0,58,0,0,0,1624,0,0,0,29232,0,0,0,380074,0,0,0,3803408,0,0,0,
%T 30488976,0,0,0,201299904,536870912,0,0,1117791544,0,0,0,5310177994,
%U 15569256448,0,0,21911472464,0,0,0,79683652176,217969590272,0,0,259172461296
%N Theta series of D*_29 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022082/b022082.txt">Table of n, a(n) for n = 0..1565</a>
%e G.f. = 1 + 58*q^4 + 1624*q^8 + ...
%o (Magma)
%o L := Dual(Lattice("D", 29));
%o B := Basis(ThetaSeriesModularFormSpace(L), 70);
%o S := [ 1, 0, 0, 0, 58, 0, 0, 0, 1624, 0, 0, 0, 29232, 0, 0];
%o Coefficients(&+[B[i] * S[i] : i in [1..15]]); // _Andy Huchala_, Jul 14 2021
%K nonn
%O 0,5
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 14 2021