OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.
MATHEMATICA
terms = 20; s = ((EllipticTheta[2, 0, q]^12 + EllipticTheta[3, 0, q]^12 + EllipticTheta[4, 0, q]^12)/2)^(1/4) + O[q]^terms; CoefficientList[s, q] (* Jean-François Alcover, Jul 08 2017 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane and Nadia Heninger, Jul 13 2005
STATUS
approved