|
%I #8 Jul 14 2021 03:20:35
%S 1,0,0,0,50,0,0,0,1200,0,0,0,18400,0,0,0,202450,0,0,0,1702560,0,0,0,
%T 11389600,33554432,0,0,62339200,0,0,0,285385200,838860800,0,0,
%U 1114064850,0,0,0,3779134240,10066329600,0,0,11360877600,0,0,0,30885301600
%N Theta series of D*_25 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
%H Andy Huchala, <a href="/A022078/b022078.txt">Table of n, a(n) for n = 0..1699</a>
%e G.f. = 1 + 50*q^4 + 1200*q^8 + ...
%o (Magma)
%o L := Dual(Lattice("D", 25));
%o B := Basis(ThetaSeriesModularFormSpace(L), 70);
%o S := [1, 0, 0, 0, 50, 0, 0, 0, 1200, 0, 0, 0, 18400];
%o Coefficients(&+[B[i] * S[i] : i in [1..13]]); // _Andy Huchala_, Jul 14 2021
%K nonn
%O 0,5
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, Jul 14 2021
|
