|
%I #9 Jul 15 2021 01:46:08
%S 1,48,1104,16192,170064,1362336,25439936,44981376,597735504,721175536,
%T 6949969248,6631997376,51590848192,41469483552,281239310208,
%U 200343312768,1222458062928,793229226336,4463565085328,2697825744960,14228067218784,8110465650176
%N Theta series of D*_24 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022077/b022077.txt">Table of n, a(n) for n = 0..20000</a>
%e G.f. = 1 + 48*q^2 + 1104*q^4 + ...
%o (Sage)
%o L = [1, 48, 1104, 16192]
%o M = ModularForms(Gamma0(2),12)
%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
|
