|
|
A320050
|
|
Expansion of (psi(x) / phi(x))^7 in powers of x where phi(), psi() are Ramanujan theta functions.
|
|
3
|
|
|
1, -7, 35, -140, 483, -1498, 4277, -11425, 28889, -69734, 161735, -362271, 786877, -1662927, 3428770, -6913760, 13660346, -26492361, 50504755, -94766875, 175221109, -319564227, 575387295, -1023624280, 1800577849, -3133695747, 5399228149, -9214458260, 15584195428
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
FORMULA
|
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
|
|
|
STATUS
|
approved
|
|
|
|