OFFSET
0,11
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1500
D. Ford, J. McKay and S. P. Norton, More on replicable functions, Comm. Algebra 22, No. 13, 5175-5193 (1994).
FORMULA
Expansion of (T10b + 4)^(1/4), where T10b = A058103, in powers of q. - G. C. Greubel, Jun 28 2018
EXAMPLE
T40e = 1/q +q^3 -q^7 +q^11 +q^19 -q^27 +2*q^39 +2*q^43 -q^47 +...
MATHEMATICA
eta[q_] := q^(1/24)*QPochhammer[q]; nmax = 120; A:= eta[q]/eta[q^25]; B:= (eta[q^2]*eta[q^25])/(eta[q]*eta[q^50]); c:= ((eta[q]*eta[q^2])/( eta[q^5]*eta[q^10]))^2; f5 := (c /. {q -> q^5}); T10b := (2 + c + 5*(c/A^2)*(1 - 1/B)^2 + 25/f5); a:= CoefficientList[Series[ (q*(T10b + 4) + O[q]^nmax)^(1/4), {q, 0, 110}], q]; Table[a[[n]], {n, 1, 100}] (* G. C. Greubel, Jun 28 2018 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Michael Somos, Aug 28 2005
STATUS
approved