|
%I #11 Oct 16 2018 07:58:16
%S 1,180,3380,16320,52020,129064,262080,489600,840500,1330420,2050344,
%T 2986560,4194240,5878440,7862400,10216320,13415220,17163880,21250420,
%U 26585280,32826664,39475200,47960640,57087360,67108800,80452188,93590440,107091840,125827200,145415080
%N Theta series of D_10 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.
%H Seiichi Manyama, <a href="/A008432/b008432.txt">Table of n, a(n) for n = 0..10000</a>
%t terms = 23; s = 1/2 (EllipticTheta[3, 0, q]^10 + EllipticTheta[4, 0, q]^10) + O[q]^(2 terms); CoefficientList[s, q^2] (* _Jean-François Alcover_, Jul 07 2017 *)
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Seiichi Manyama_, Oct 16 2018
|
