A022068 Theta series of D*_15 lattice.

1, 0, 0, 0, 30, 0, 0, 0, 420, 0, 0, 0, 3640, 0, 0, 32768, 21870, 0, 0, 0, 96936, 0, 0, 491520, 331240, 0, 0, 0, 911040, 0, 0, 3440640, 2128260, 0, 0, 0, 4495430, 0, 0, 15400960, 8972712, 0, 0, 0, 16946280, 0, 0, 51609600, 29822520, 0, 0, 0, 49476840, 0, 0

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..2000

Example

G.f. = 1 + 30*q^4 + 420*q^8 + ...

Prog

L := Dual(Lattice("D", 15));
B := Basis(ThetaSeriesModularFormSpace(L), 20);
S := [1, 0, 0, 0, 30, 0, 0, 0];
Coefficients(&+[B[i] * S[i] : i in [1..8]]); // Andy Huchala, Jul 13 2021

Crossrefs

Sequence in context: A124992 A296522 A023926 * A277043 A361058 A198805

Adjacent sequences: A022065 A022066 A022067 * A022069 A022070 A022071

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Andy Huchala, Jul 13 2021

Status

approved