|
|
A023915
|
|
Theta series of A_24 lattice.
|
|
0
|
|
|
1, 600, 75900, 3555800, 77836050, 924978120, 6901688200, 37479599400, 162981777750, 594965730200, 1897531134180, 5410666657200, 14097598363900, 33985515175800, 76830818652600, 164035898209360
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
REFERENCES
|
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
|
|
LINKS
|
|
|
EXAMPLE
|
1 + 600*q^2 + 75900*q^4 + 3555800*q^6 + O(q^8).
|
|
MATHEMATICA
|
terms = 16; f[q_] = LatticeData["A24", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); Partition[CoefficientList[s, q] // Round, 2][[All, 1]][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)
|
|
PROG
|
(Magma) L:=Lattice("A", 24); T1<q> := ThetaSeries(L, 10);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Robert.Harley(AT)inria.fr, see A023902.
|
|
STATUS
|
approved
|
|
|
|