|
|
A261320
|
|
Expansion of (phi(q^3) / phi(q))^2 in powers of q where phi() is a Ramanujan theta function.
|
|
6
|
|
|
1, -4, 12, -28, 60, -120, 228, -416, 732, -1252, 2088, -3408, 5460, -8600, 13344, -20424, 30876, -46152, 68268, -100016, 145224, -209120, 298800, -423840, 597108, -835804, 1162824, -1608508, 2212896, -3028632, 4124664, -5590976, 7544604, -10137264, 13565016
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
Expansion of eta(q)^4 * eta(q^4)^4 * eta(q^6)^10 / ( eta(q^2)^10 * eta(q^3)^4 * eta(q^12)^4) in powers of q.
Euler transform of period 12 sequence [ -4, 6, 0, 2, -4, 0, -4, 2, 0, 6, -4, 0, ...].
G.f.: (Sum_{k in Z} x^(3*k^2)) / (Sum_{k in Z} x^k^2)^2.
G.f.: (Product_{k>0} (1 + (-x)^k + x^(2*k)) / (1 - (-x)^k + x^(2*k)))^2.
a(n) ~ (-1)^n * exp(2*Pi*sqrt(n/3)) / (2*3^(5/4)*n^(3/4)). - Vaclav Kotesovec, Nov 16 2017
|
|
EXAMPLE
|
G.f. = 1 - 4*x + 12*x^2 - 28*x^3 + 60*x^4 - 120*x^5 + 228*x^6 + ...
|
|
MATHEMATICA
|
a[ n_] := SeriesCoefficient[ (EllipticTheta[ 3, 0, q^3] / EllipticTheta[ 3, 0, q])^2, {q, 0, n}];
|
|
PROG
|
(PARI) {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x + A)^4 * eta(x^4 + A)^4 * eta(x^6 + A)^10 / (eta(x^2 + A)^10 * eta(x^3 + A)^4 * eta(x^12 + A)^4), n))};
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|