OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000 (terms 0..128 from G. A. Edgar)
D. Ford, J. McKay and S. P. Norton, More on replicable functions, Commun. Algebra 22, No. 13, 5175-5193 (1994).
Michael Somos, Emails to N. J. A. Sloane, 1993
FORMULA
Expansion of q^(1/2)*(eta(q^2)*eta(q^3)/(eta(q)*eta(q^6)))^6 + (eta(q)*eta(q^6)/(eta(q^2)*eta(q^3)))^6 in powers of q. - G. A. Edgar, Mar 13 2017
a(n) ~ exp(2*Pi*sqrt(n/3)) / (2*3^(1/4)*n^(3/4)). - Vaclav Kotesovec, Mar 18 2017
G.f. is a period 1 Fourier series which satisfies f(-1 / (24 t)) = f(t) where q = exp(2 Pi i t). - Michael Somos, Jul 06 2018
EXAMPLE
T12C = 1/q + 7*q + 15*q^3 + 71*q^5 + 106*q^7 + 273*q^9 + 486*q^11 + ...
MATHEMATICA
QP := QPochhammer; CoefficientList[Series[QP[x^2]^6*QP[x^3]^6 / (QP[x]^6*QP[x^6]^6) + x*QP[x]^6*QP[x^6]^6 / (QP[x^2]^6*QP[x^3]^6), {x, 0, 66}], x] (* Indranil Ghosh, Mar 14 2017 *)
eta[q_]:= q^(1/24)*QPochhammer[q]; A := q^(1/2)*(eta[q^2]* eta[q^3]/( eta[q]*eta[q^6]))^6; a := CoefficientList[Series[A + q/A, {q, 0, 60}], q]; Table[a[[n]], {n, 1, 50}] (* G. C. Greubel, Jun 25 2018 *)
a[ n_] := With[{A = (QPochhammer[ x^3, x^6] / QPochhammer[ x, x^2])^6 },
SeriesCoefficient[ A + x / A, {x, 0, n}]]; (* Michael Somos, Jul 06 2018 )
PROG
(PARI) q='q+O('q^66); Vec( eta(q^2)^6*eta(q^3)^6 / (eta(q)^6*eta(q^6)^6) + q* eta(q)^6*eta(q^6)^6 / (eta(q^2)^6*eta(q^3)^6) ) \\ Joerg Arndt, Mar 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 27 2000
EXTENSIONS
More terms from G. A. Edgar, Mar 13 2017
STATUS
approved