A022066 Theta series of D*_13 lattice.

1, 0, 0, 0, 26, 0, 0, 0, 312, 0, 0, 0, 2288, 8192, 0, 0, 11466, 0, 0, 0, 41808, 106496, 0, 0, 116688, 0, 0, 0, 265408, 638976, 0, 0, 535704, 0, 0, 0, 1031914, 2449408, 0, 0, 1899664, 0, 0, 0, 3214224, 7135232, 0, 0, 5043376, 0, 0, 0, 7801744, 17571840, 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 + 26*q^4 + 312*q^8 + ...

Prog

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

Crossrefs

Sequence in context: A347810 A116197 A023924 * A291551 A217232 A040681

Adjacent sequences: A022063 A022064 A022065 * A022067 A022068 A022069

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved