OFFSET
0,11
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
D. Ford, J. McKay and S. P. Norton, More on replicable functions, Comm. Algebra 22, No. 13, 5175-5193 (1994).
FORMULA
Expansion of (T39A + 3)^(1/3) in powers of q, where T39A = A058659. - G. C. Greubel, Jul 02 2018
a(n) ~ exp(4*Pi*sqrt(n/13)/3) / (sqrt(6) * 13^(1/4) * n^(3/4)). - Vaclav Kotesovec, Jul 02 2018
EXAMPLE
T117a = 1/q +q^2 +q^11 +q^17 +q^20 +q^23 +q^26 +2*q^29 +q^32 +...
MATHEMATICA
eta[q_] := q^(1/24)*QPochhammer[q]; nmax = 100; c:= (eta[q^3]*eta[q^13]/ (eta[q]*eta[q^39])); T39A := c + 1/c - 1; a:= CoefficientList[Series[ (q*T39A + 3*q + O[q]^nmax)^(1/3), {q, 0, nmax}], q]; Table[a[[n]], {n, 1, nmax}] (* G. C. Greubel, Jul 02 2018 *)
PROG
(PARI) seq(n)={my(x=x+O(x*x^n)); my(A=eta(x^3)*eta(x^13)/(x*eta(x)*eta(x^39))); Vec((x*(2 + A + 1/A))^(1/3))} \\ Andrew Howroyd, Jul 02 2018
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Michael Somos, Aug 28 2005
STATUS
approved
