A028696 Expansion of (theta_3(z)*theta_3(z)*theta_3(z)+theta_2(z)*theta_2(z)*theta_2(z))^3.

1, 0, 0, 24, 18, 0, 192, 288, 144, 512, 1152, 1512, 672, 0, 3456, 4704, 2034, 4608, 8448, 10440, 4320, 0, 17856, 19872, 7392, 18432, 31104, 35616, 12672, 0, 51072, 58176, 22608, 47616, 80640, 87696, 34802

Offset

0,4

Links

Table of n, a(n) for n=0..36.

Mathematica

Normal[Series[(EllipticTheta[3, 0, z]^3 + EllipticTheta[2, 0, z]^3)^3, {z, 0, 9}]] /. z -> z^4 // Simplify[#, z > 0]& // CoefficientList[#, z]& (* Jean-François Alcover, Sep 29 2020 *)

Crossrefs

Sequence in context: A033824 A040554 A226261 * A284874 A216841 A293782

Adjacent sequences: A028693 A028694 A028695 * A028697 A028698 A028699

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved