%I #8 Nov 20 2017 23:31:13
%S 1,0,0,0,0,-6,0,0,0,0,12,0,0,0,0,-8,0,0,0,0,6,0,0,0,0,-24,0,0,0,0,24,
%T 0,0,0,0,0,0,0,0,0,12,0,0,0,0,-30,0,0,0,0,24,0,0,0,0,-24,0,0,0,0,8,0,
%U 0,0,0,-24,0,0,0,0,48,0,0,0,0,0,0,0,0,0,6,0,0,0,0,-48,0,0,0,0,36,0,0,0,0,-24,0
%N Expansion of Jacobi theta function theta_4^3(q^5).
%H G. C. Greubel, <a href="/A089804/b089804.txt">Table of n, a(n) for n = 0..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/JacobiThetaFunctions.html">Jacobi Theta Functions</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/q-SeriesIdentities.html">q-Series Identities</a>
%t A089804[n_] := SeriesCoefficient[EllipticTheta[4, 0, q^5]^3, {q, 0, n}]; Table[A089804[n], {n, 0, 50}] (* _G. C. Greubel_, Nov 20 2017 *)
%K sign
%O 0,6
%A _Eric W. Weisstein_, Nov 12 2003
|