OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..800
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; t2 = EllipticTheta[2, 0, q]; t3 = EllipticTheta[3, 0, q]; s = Sqrt[(t3^7 + 7*t3^3*t2^4)^2 + (t2^7 + 7*t2^3*t3^4)^2] + O[q]^terms // Normal; Join[{1, 0}, Rest[(List @@ s) /. q -> 1]][[1 ;; terms]] (* Jean-François Alcover, Jul 08 2017 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane and Nadia Heninger, Aug 18 2005
STATUS
approved