OFFSET
0,11
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
D. Ford, J. McKay and S. P. Norton, More on replicable functions, Comm. Algebra 22, No. 13, 5175-5193 (1994).
FORMULA
Expansion of sqrt(T24g + 2*q) in powers of q, where T24g = A112164. - G. C. Greubel, Jul 01 2018
EXAMPLE
T48d = 1/q + q + q^3 - q^5 + q^9 - q^13 + q^15 + 2*q^19 - q^21 + q^23 + ...
MATHEMATICA
eta[q_] := q^(1/24)*QPochhammer[q]; nmax = 100; A:= q*(eta[q^4]*eta[q^8]/ (eta[q^12]*eta[q^24])); T24g := A + 3*q^2/A; a:= CoefficientList[ Series[(T24g + 2*q + O[q]^nmax)^(1/2), {q, 0, 60}], q]; Table[a[[n]], {n, 0, 50}] (* G. C. Greubel, Jul 01 2018 *)
PROG
(PARI) q='q+O('q^50); A = eta(q^4)*eta(q^8)/(eta(q^12)*eta(q^24)); T24g = A+ 3*q^2/A; Vec(sqrt(T24g + 2*q)) \\ G. C. Greubel, Jul 01 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Michael Somos, Aug 28 2005
STATUS
approved