A015236 - OEIS

%I #17 Jul 19 2021 01:57:02

%S 1,0,92,64,436,320,1248,640,2476,1024,5080,1984,6170,2944,11704,3840,

%T 13860,6144,19964,7744,24064,8768,36944,12800,33888,15360,54808,16768,

%U 57176,22464,71416,25984,79628,27648,107128,35840,93844,41984,143888,42112,137720

%N Theta series of lattice Kappa_7.

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

%H Andy Huchala, <a href="/A015236/b015236.txt">Table of n, a(n) for n = 0..1880</a>

%H G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/KAPPA7.html">Home page for this lattice</a>

%e G.f. = 1 + 92*q^4 + 64*q^6 + ...

%o (Magma)

%o L := (Lattice("Kappa", 7));

%o B := Basis(ThetaSeriesModularFormSpace(L), 30);

%o S := [1, 0, 92, 64, 436, 320, 1248, 640, 2476, 1024, 5080, 1984, 6170, 2944, 11704, 3840, 13860, 6144, 19964, 7744, 24064, 8768, 36944, 12800, 33888, 15360];

%o Coefficients(&+[B[i] * S[i] : i in [1..26]]); // _Andy Huchala_, Jul 18 2021

%K nonn

%O 0,3

%A _N. J. A. Sloane_

%E More terms from _Sean A. Irvine_, Feb 25 2020