|
%I #14 Oct 16 2018 08:24:28
%S 1,144,2034,7392,22608,44640,93984,141120,262386,343536,557280,703584,
%T 1068384,1234080,1851264,2057280,2884176,3231936,4428242,4639392,
%U 6455520,6670272,8814816,9320256,12065568,12152880,16161120,16124544,20496960,20906208,26378880,25736832
%N Theta series of D_9 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.
%H Seiichi Manyama, <a href="/A008431/b008431.txt">Table of n, a(n) for n = 0..10000</a>
%F Expansion of 1/2 (EllipticTheta(3, 0, q)^9 + EllipticTheta(4, 0, q)^9) (formula given by Mathematica's LatticeData(D9)). - _Jean-François Alcover_, Jul 07 2017
%t terms = 24; s = 1/2 (EllipticTheta[3, 0, q]^9 + EllipticTheta[4, 0, q]^9) + 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
|
