|
%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
|
