A029897 Theta series of 13-dimensional lattice Kappa_13 with minimal norm 4.

1, 0, 918, 6624, 36450, 120096, 322436, 764640, 1637766, 2912544, 5591592, 9160992, 14668002, 22913280, 35544420, 48529440, 74114514, 100230912, 136486530, 184801824, 252809100, 308852640, 426995388, 528491520, 664053284, 836215488, 1070501400, 1229873472

Offset

0,3

References

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

Links

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

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

Example

G.f. = 1 + 918*q^4 + 6624*q^6 + ...

Prog

(Magma)
L := (Lattice("Kappa", 13));
B := Basis(ThetaSeriesModularFormSpace(L), 55);
S := [1, 0, 918, 6624, 36450, 120096, 322436, 764640, 1637766, 2912544, 5591592, 9160992, 14668002, 22913280, 35544420, 48529440, 74114514, 100230912, 136486530, 184801824, 252809100, 308852640, 426995388, 528491520, 664053284];
Coefficients(&+[B[i] * S[i] : i in [1..25]]); // Andy Huchala, Jul 23 2021

Crossrefs

Sequence in context: A234993 A234764 A282592 * A221387 A217226 A217344

Adjacent sequences: A029894 A029895 A029896 * A029898 A029899 A029900

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Andy Huchala, Jul 23 2021

Status

approved