OFFSET
0,4
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
KEYWORD
nonn
AUTHOR
STATUS
approved