OFFSET
0,2
COMMENTS
In general, for b > 0 and (psi(x) / phi(x))^b, a(n) ~ (-1)^n * b^(1/4) * exp(Pi*sqrt(b*(n/2))) / (2^(b + 7/4) * n^(3/4)). - Vaclav Kotesovec, Oct 06 2018
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
FORMULA
Convolution inverse of A029844.
Expansion of q^(-7/8) * (eta(q) * eta(q^4)^2 / eta(q^2)^3)^7 in powers of q.
a(n) ~ (-1)^n * 7^(1/4) * exp(Pi*sqrt((7*n)/2)) / (256*2^(3/4)*n^(3/4)). - Vaclav Kotesovec, Oct 06 2018
MATHEMATICA
nmax = 50; CoefficientList[Series[Product[((1-x^k) * (1-x^(4*k))^2 / (1-x^(2*k))^3)^7, {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 06 2018 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Oct 04 2018
STATUS
approved