OFFSET
-1,3
COMMENTS
LINKS
Seiichi Manyama, Table of n, a(n) for n = -1..10000
D. Ford, J. McKay and S. P. Norton, More on replicable functions, Commun. Algebra 22, No. 13, 5175-5193 (1994).
FORMULA
a(n) ~ exp(sqrt(n)*Pi) / (2^(3/2) * n^(3/4)). - Vaclav Kotesovec, May 01 2017
Expansion of (1/q)*eta(q^4)^10/(eta(q)^2 * eta(q^2)^3 * eta(q^8)^3 * eta(q^16)^2) - 2 in powers of q. - G. C. Greubel, May 28 2018
Expansion of -2 + (1/q) * chi(q)^2 * chi(q^2)^7 * chi(q^4)^2 in powers of q where chi() is a Ramanujan theta function. - Michael Somos, Feb 09 2019
EXAMPLE
T16C = 1/q + 8*q + 16*q^2 + 34*q^3 + 64*q^4 + 112*q^5 + 192*q^6 + 319*q^7 + ...
MATHEMATICA
eta[q_]:= q^(1/24)*QPochhammer[q]; A058516:= CoefficientList[Series[ q*(-2 + eta[q^4]^10/(eta[q]^2 *eta[q^2]^3 *eta[q^8]^3* eta[q^16]^2)), {q, 0, 60}], q]; Table[A058516[[n]], {n, 1, 50}] (* G. C. Greubel, May 28 2018 *)
a[ n_] := SeriesCoefficient[ -2 + q^-1 QPochhammer[ -q, q^2]^2 QPochhammer[ -q^2, q^4]^7 QPochhammer[ -q^4, q^8]^2, {q, 0, n}]; (* Michael Somos, Feb 09 2019 *)
PROG
(PARI) my(q='q+O('q^30), h=(1/q)*(eta(q^4)^10/(eta(q)^2*eta(q^2)^3 *eta(q^8)^3*eta(q^16)^2))); Vec(-2 + h) \\ G. C. Greubel, May 28 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 27 2000
EXTENSIONS
More terms from Michel Marcus, Feb 18 2014
STATUS
approved