OFFSET
0,5
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
FORMULA
Expansion of G(x) * G(x^24) + x^5 * G(x) * H(x^24) in powers of x where G(), H() are Rogers-Ramanujan functions.
Expansion of q^(5/12) * eta(q^2) * eta(q^3) * eta(q^8) * eta(q^12) / (eta(q) * eta(q^4) * eta(q^6) * eta(q^24)) in powers of q
Euler transform of period 24 sequence [1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, ...].
Convolution inverse of A281743.
a(n) ~ 5^(1/4) * exp(sqrt(5*n/2)*Pi/3) / (2^(7/4) * sqrt(3) * n^(3/4)). - Vaclav Kotesovec, Aug 22 2018
EXAMPLE
G.f. = 1 + x + x^2 + x^3 + 2*x^4 + 3*x^5 + 3*x^6 + 4*x^7 + 5*x^8 + 6*x^9 + ...
G.f. = q^-5 + q^7 + q^19 + q^31 + 2*q^43 + 3*q^55 + 3*q^67 + 4*q^79 + ...
MATHEMATICA
a[ n_] := SeriesCoefficient[ QPochhammer[ -x, x] QPochhammer[ -x^4, x^4] QPochhammer[ x^3, x^6] QPochhammer[ x^12, x^24], {x, 0, n}];
nmax = 50; CoefficientList[Series[Product[(1 + x^k) * (1 + x^(4*k)) / ((1 + x^(12*k)) * (1 + x^(3*k))), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Aug 22 2018 *)
PROG
(PARI) {a(n) = if( n<0, 0, my(A = x * O(x^n)); polcoeff( eta(x^2 + A) * eta(x^3 + A) * eta(x^8 + A) * eta(x^12 + A) / (eta(x + A) * eta(x^4 + A) * eta(x^6 + A) * eta(x^24 + A)), n))};
(PARI) lista(nn) = {q='q+O('q^nn); Vec(eta(q^2)*eta(q^3)*eta(q^8)*eta(q^12)/(eta(q)*eta(q^4)*eta(q^6)*eta(q^24)))} \\ Altug Alkan, Mar 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Somos, Jan 28 2017
STATUS
approved