A022045 Theta series of D_14 lattice.

1, 364, 16044, 200928, 1089452, 4196920, 12547808, 31553344, 70439852, 142487436, 268594872, 476105504, 800698080, 1296257144, 2022013760, 3056208064, 4507001772, 6481076056, 9123064524, 12637846368, 17190762680, 22999441920, 30453867808, 39772497856, 51254988512

Offset

0,2

References

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

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

G. Nebe and N. J. A. Sloane, Home page for this lattice

Mathematica

terms = 20; f[q_] = LatticeData["D14", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); DeleteCases[CoefficientList[s, q], 0][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)

Crossrefs

Sequence in context: A027799 A115191 A175114 * A278002 A329187 A107509

Adjacent sequences: A022042 A022043 A022044 * A022046 A022047 A022048

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved