%I #15 Oct 16 2018 08:37:36
%S 1,480,29152,525952,3994080,18626112,67978880,197120256,509145568,
%T 1143441760,2428524096,4658843520,8705492608,15000919872,25593401600,
%U 40864033536,65187410400,98098623936,148724365664,213678303360,310833534528,430766443520,605650030464,813970121472
%N Theta series of D_16 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.
%H Seiichi Manyama, <a href="/A022047/b022047.txt">Table of n, a(n) for n = 0..10000</a>
%t terms = 18; s = EllipticTheta[3, 0, x]^16 + O[x]^(2 terms); Partition[ CoefficientList[s, x], 2][[All, 1]][[1 ;; terms]] (* _Jean-François Alcover_, Jul 06 2017 *)
%Y a(n) = A000152(2*n).
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Seiichi Manyama_, Oct 16 2018