login
Theta series of A_9 lattice.
4

%I #10 Jun 12 2019 20:47:59

%S 1,90,1260,4920,13320,30492,55860,94680,156240,232770,332640,471240,

%T 636480,835020,1098900,1391040,1720800,2181780,2614260,3118680,

%U 3889962,4519140,5207760,6237000,7208640,8274510,9585000,10816560,12215520,14153760

%N Theta series of A_9 lattice.

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

%t terms = 24; f[q_] = LatticeData["A9", "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