OFFSET
-1,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = -1..1000
Michael Somos, Introduction to Ramanujan theta functions
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
FORMULA
Expansion of - (b(q^2) * c(q^2))^3 / (b(-q)^2 * c(-q) * b(q^4) * c(q^4)^2) in powers of q where b(), c() are cubic AGM functions.
Expansion of eta(q)^5 * eta(q^3) * eta(q^4)^4 * eta(q^6)^3 / (eta(q^2)^9 * eta(q^12)^4) in powers of q.
Euler transform of period 12 sequence [ -5, 4, -6, 0, -5, 0, -5, 0, -6, 4, -5, 0, ...].
G.f. A(x) satisfies 0 = f(A(x), A(x^2)) where f(u, v) = (1+u)^2 * v^4 - u^4 * v^2 * (1+v) - 4*u^2 * (1+u) * (1+v) *(4+v) * (4+3*v).
a(n) ~ -(-1)^n * exp(2*Pi*sqrt(n/3)) / (2 * 3^(1/4) * n^(3/4)). - Vaclav Kotesovec, Sep 07 2017
EXAMPLE
1/q - 5 + 14*q - 36*q^2 + 85*q^3 - 180*q^4 + 360*q^5 - 684*q^6 + 1246*q^7 + ...
MATHEMATICA
eta[q_]:= q^(1/24)*QPochhammer[q]; a[n_] := SeriesCoefficient[eta[q]^5* eta[q^3]*eta[q^4]^4*eta[q^6]^3/(eta[q^2]^9*eta[q^12]^4), {q, 0, n}]; Table[a[n], {n, -1, 50}] (* G. C. Greubel, Apr 03 2018 *)
PROG
(PARI) {a(n) = local(A); if( n<-1, 0, n++; A = x * O(x^n); polcoeff( eta(x + A)^5 * eta(x^3 + A) * eta(x^4 + A)^4 * eta(x^6 + A)^3 / (eta(x^2 + A)^9 * eta(x^12 + A)^4), n))}
CROSSREFS
KEYWORD
sign
AUTHOR
Michael Somos, Jul 30 2011
STATUS
approved