A022078 Theta series of D*_25 lattice.

1, 0, 0, 0, 50, 0, 0, 0, 1200, 0, 0, 0, 18400, 0, 0, 0, 202450, 0, 0, 0, 1702560, 0, 0, 0, 11389600, 33554432, 0, 0, 62339200, 0, 0, 0, 285385200, 838860800, 0, 0, 1114064850, 0, 0, 0, 3779134240, 10066329600, 0, 0, 11360877600, 0, 0, 0, 30885301600

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

Example

G.f. = 1 + 50*q^4 + 1200*q^8 + ...

Prog

(Magma)
L := Dual(Lattice("D", 25));
B := Basis(ThetaSeriesModularFormSpace(L), 70);
S := [1, 0, 0, 0, 50, 0, 0, 0, 1200, 0, 0, 0, 18400];
Coefficients(&+[B[i] * S[i] : i in [1..13]]); // Andy Huchala, Jul 14 2021

Crossrefs

Sequence in context: A023936 A324676 A015066 * A337330 A174914 A036172

Adjacent sequences: A022075 A022076 A022077 * A022079 A022080 A022081

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Andy Huchala, Jul 14 2021

Status

approved