login
A023914
Theta series of A_23 lattice.
0
1, 552, 63756, 2704064, 53183682, 567173376, 3844954344, 19344711936, 78707396790, 270865553048, 819741312720, 2227781467584, 5559628500716, 12871144053504, 28053560345184, 57835101053184, 114001594899018
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
MATHEMATICA
terms = 17; f[q_] = LatticeData["A23", "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 *)
CROSSREFS
Sequence in context: A189549 A282595 A290048 * A035849 A028686 A247531
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert.Harley(AT)inria.fr, see A023902.
STATUS
approved