%I #18 Oct 16 2018 12:00:18
%S 1,1104,170064,8662720,195082320,2319457632,17231109824,93703589760,
%T 407488018512,1487286966928,4744779429216,13523760003648,
%U 35250721087168,84944161233120,192127452262272,409984511707776,834658207381584,1624411151609760,3049176879087248,5521413521657280
%N Theta series of D_24 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.
%H Seiichi Manyama, <a href="/A022055/b022055.txt">Table of n, a(n) for n = 0..1000</a>
%F This series is the q-expansion of 11/9 E_4(z)^3 - 2/9 E_6(z)^2. Cf. A004009, A013973. - _Daniel D. Briggs_, Nov 26 2011
%t terms = 16; s = 1/2 (EllipticTheta[3, 0, q]^24 + EllipticTheta[4, 0, q]^24) + O[q]^(2 terms); CoefficientList[s, q^2] (* _Jean-François Alcover_, Jul 07 2017, after LatticeData(D24) *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Seiichi Manyama_, Oct 16 2018