%I #11 Jul 15 2021 02:07:57
%S 1,56,1512,26208,327656,3147984,24189984,421302976,811401192,
%T 11197272408,14500933104,151844650272,156797510688,1331217305488,
%U 1163495873088,8550203006016,6597606440936,43532444810736,30505974273096,184815887035360,119983597365744
%N Theta series of D*_28 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022081/b022081.txt">Table of n, a(n) for n = 0..20000</a>
%e G.f. = 1 + 56*q^2 + 1512*q^4 + ...
%o (Sage)
%o L = [1, 56, 1512, 26208]
%o M = ModularForms(Gamma0(2),14)
%o bases = [_.q_expansion(20) for _ in M.integral_basis()]
%o f = sum(x*y for (x,y) in zip(bases,L)); list(f) # _Andy Huchala_, Jul 14 2021
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 14 2021