A022072 Theta series of D*_19 lattice.

1, 0, 0, 0, 38, 0, 0, 0, 684, 0, 0, 0, 7752, 0, 0, 0, 62054, 0, 0, 524288, 373464, 0, 0, 0, 1759704, 0, 0, 9961472, 6697728, 0, 0, 0, 21210156, 0, 0, 89653248, 57739518, 0, 0, 0, 140116184, 0, 0, 517996544, 313328088, 0, 0, 0, 658369608, 0, 0, 2211446784

Offset

0,5

References

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

Links

Andy Huchala, Table of n, a(n) for n = 0..1991

Example

G.f. = 1 + 38*q^4 + 684*q^8 + ...

Prog

(Magma)
L := Dual(Lattice("D", 19));
B := Basis(ThetaSeriesModularFormSpace(L), 20);
S := [1, 0, 0, 0, 38, 0, 0, 0, 684, 0];
Coefficients(&+[B[i] * S[i] : i in [1..10]]); // Andy Huchala, Jul 14 2021

Crossrefs

Sequence in context: A329226 A171407 A023930 * A351221 A154229 A225433

Adjacent sequences: A022069 A022070 A022071 * A022073 A022074 A022075

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Andy Huchala, Jul 14 2021

Status

approved