login
Theta series of A_8 lattice.
5

%I #10 Jun 12 2019 20:48:10

%S 1,72,756,2184,5742,10584,19656,26712,49140,59208,88452,111888,159432,

%T 171864,260064,275184,364734,412776,532872,534744,772632,751296,

%U 935064,1022112,1277640,1229328,1661688,1598856,1959696,2048760,2476656,2321928

%N Theta series of A_8 lattice.

%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.

%t terms = 26; f[q_] = LatticeData["A8", "ThetaSeriesFunction"][-I Log[q]/Pi]; Series[f[q], {q, 0, 2 terms - 1}] // CoefficientList[#, q]& // Round // DeleteCases[#, 0]& (* _Jean-François Alcover_, Jul 04 2017 *)

%K nonn

%O 0,2

%A _N. J. A. Sloane_.

%E More terms from _Sean A. Irvine_, Jun 12 2019