|
|
A131985
|
|
Expansion of (eta(q^3)^2 / (eta(q) * eta(q^9)))^6 in powers of q.
|
|
3
|
|
|
1, 6, 27, 86, 243, 594, 1370, 2916, 5967, 11586, 21870, 39852, 71052, 123444, 210654, 352480, 581013, 942786, 1510254, 2388204, 3734964, 5777788, 8852004, 13434984, 20218395, 30177684, 44704413, 65743348, 96033357, 139368816, 201032186, 288281592, 411119766
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
-1,2
|
|
COMMENTS
|
In Berndt and Chan (1999) denoted by h(q) in Theorem 3.1. - Michael Somos, Oct 20 2013
|
|
LINKS
|
|
|
FORMULA
|
Euler transform of period 9 sequence [ 6, 6, -6, 6, 6, -6, 6, 6, 0, ...].
G.f. A(x) satisfies 0 = f(A(x), A(x^2)) where f(u, v) = (u+v)^3 + u*v*(27 + 9*(u+v) - u*v).
G.f. A(x) satisfies 0 = f(A(x), A(x^2), A(x^4)) where f(u, v, w) = u^2 + w^2 + 12*v^2 + u*w - v^2*(u+w) + 12*v*(u+w) + 27*v.
G.f. is a period 1 Fourier series which satisfies f(-1 / (9 t)) = f(t) where q = exp(2 Pi i t).
G.f.: (1/x) * (Product_{k>0} (1 - x^(3*k))^2 / ((1 - x^k) * (1 - x^(9*k))))^6.
a(n) ~ exp(4*Pi*sqrt(n)/3) / (sqrt(6) * n^(3/4)). - Vaclav Kotesovec, Sep 07 2015
|
|
EXAMPLE
|
G.f. = 1/q + 6 + 27*q + 86*q^2 + 243*q^3 + 594*q^4 + 1370*q^5 + 2916*q^6 +...
|
|
MATHEMATICA
|
a[ n_] := SeriesCoefficient[ 1/q (QPochhammer[ q^3]^2 / (QPochhammer[ q] QPochhammer[ q^9]))^6, {q, 0, n}]; (* Michael Somos, Oct 20 2013 *)
|
|
PROG
|
(PARI) {a(n) = my(A); if( n<-1, 0, n++; A = x * O(x^n); polcoeff( (eta(x^3 + A)^2 / (eta(x + A) * eta(x^9 + A)))^6, n))};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|