|
%I #13 Oct 23 2018 08:14:59
%S 1,-19,399,-9177,228969,-6146595,176336055,-5376116025,173372815665,
%T -5890443433875,210126743128575,-7846697354074425,305934601802254425,
%U -12425119660246968675,524572676975580207975,-22979378711569440785625
%N Expansion of e.g.f. theta_3^(-19/2).
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 102.
%H Seiichi Manyama, <a href="/A015694/b015694.txt">Table of n, a(n) for n = 0..420</a>
%t nmax = 25; CoefficientList[Series[EllipticTheta[3, 0, x]^(-19/2), {x, 0, nmax}], x] * Range[0, nmax]! (* _Vaclav Kotesovec_, Oct 23 2018 *)
%K sign
%O 0,2
%A _N. J. A. Sloane_
|
