%I #14 Jul 16 2021 01:33:01
%S 1,64,1984,39680,575424,6448000,58115328,433131008,7019874240,
%T 14709082432,206518750336,285848172800,3185272407296,3515371815296,
%U 32146948928000,30156949879296,238103408854976,197101549419648,1393386325958336,1045365667116800,6768246939487360
%N Theta series of D*_32 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022085/b022085.txt">Table of n, a(n) for n = 0..20000</a>
%e G.f. = 1 + 64*q^2 + 1984*q^4 + ...
%o (Sage)
%o L = [1, 64, 1984, 39680, 575424]
%o M = ModularForms(Gamma0(2),16)
%o bases = [_.q_expansion(30) for _ in M.integral_basis()]
%o f = sum(x*y for (x,y) in zip(bases,L)); list(f) # _Andy Huchala_, Jul 15 2021
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 15 2021