[go: up one dir, main page]

login
A023907
Theta series of A_16 lattice.
0
1, 272, 14280, 251600, 1949492, 9042096, 32840192, 96028240, 246020430, 556903136, 1173257720, 2268991632, 4204829640, 7307863440, 12370365384, 19885846288, 31507387716, 47786714400, 71820200560, 104094445696, 150234515208, 209639335200, 292733828320, 396519251280
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
MATHEMATICA
terms = 19; f[q_] = LatticeData["A16", "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: A350975 A250341 A168372 * A281691 A035842 A000518
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert.Harley(AT)inria.fr, see A023902.
More terms from Sean A. Irvine, Jun 12 2019
STATUS
approved