A022062 Theta series of D_31 lattice.

1, 1860, 503502, 47229864, 2046701220, 47775740520, 671636175480, 6309132101904, 43733123309262, 241275541236780, 1111479953165352, 4426891212365160, 15633379938039144, 49899492947343864, 146147632445771200, 397406328481552528, 1013148957319630500, 2440161908107807952

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

Mathematica

terms = 14; f[q_] = LatticeData["D31", "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: A159212 A120809 A213868 * A107526 A132202 A054815

Adjacent sequences: A022059 A022060 A022061 * A022063 A022064 A022065

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved