|
%I #8 Jul 24 2021 02:30:06
%S 1,0,276,888,3564,8136,16908,30456,58380,74256,145800,186048,265866,
%T 363528,555384,576000,939924,1063800,1355820,1659528,2302704,2206848,
%U 3387744,3557664,4263468,4961736,6611736,6043416,8841960,9005112,10439424,11761848,15056124
%N Theta series of lattice Kappa_10.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 161.
%H Andy Huchala, <a href="/A015232/b015232.txt">Table of n, a(n) for n = 0..20000</a>
%e G.f. = 1 + 276*q^4 + 888*q^6 + ...
%o (Sage)
%o L = [ 1, 0, 276, 888, 3564, 8136, 16908, 30456, 58380, 74256, 145800, 186048, 265866, 363528, 555384, 576000]
%o e = DirichletGroup(18,QQ).0
%o M = ModularForms(e, 5)
%o bases = [_.q_expansion(40) for _ in M.integral_basis()]
%o f = sum(x*y for (x, y) in zip(bases, L)); list(f) # _Andy Huchala_, Jul 23 2021
%K nonn
%O 0,3
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 23 2021
|
