OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
D. Ford, J. McKay and S. P. Norton, More on replicable functions, Commun. Algebra 22, No. 13, 5175-5193 (1994).
J. McKay and A. Sebbar, Fuchsian groups, automorphic functions and Schwarzians, Math. Ann., 318 (2000), 255-275.
FORMULA
Expansion of 3 * q^(1/3) * a(q) / c(q) in powers of q where a(), c() are cubic AGM theta functions. - Michael Somos, Aug 09 2006
Given g.f. A(x), then B(q) = A(q^3) / q satisfies 0 = f(B(q), B(q^2)) where f(u, v) = u^3 + v^3 - u^2*v^2 + 9*u*v - 54. - Michael Somos, Aug 09 2006
Given g.f. A(x), then B(q) = A(q^3) / q satisfies 0 = f(B(q), B(q^2)) where f(u, v) = (u^3 + 1) * (v^3 + 1) - (u*v + 5) * (u^2*v^2 - 4*u*v + 11). - Michael Somos, Aug 20 2014
G.f.: Sum_{k>=0} a(k) * x^(3*k) = 3*x + (Product_{k>0} (1 - x^k) / (1 - x^(9*k)))^3. - Michael Somos, Aug 09 2006
a(n) = A131986(3*n - 1). - Michael Somos, Aug 20 2014
EXAMPLE
G.f. = 1 + 5*x - 7*x^2 + 3*x^3 + 15*x^4 - 32*x^5 + 9*x^6 + 58*x^7 - 96*x^8 + ...
T9B = 1/q + 5*q^2 - 7*q^5 + 3*q^8 + 15*q^11 - 32*q^14 + 9*q^17 + 58*q^20 + ...
MATHEMATICA
a[ n_] := SeriesCoefficient[ 1/q (QPochhammer[ q] / QPochhammer[ q^9])^3 + 3, {q, 0, 3 n - 1}]; (* Michael Somos, Aug 20 2014 *)
PROG
(PARI) {a(n) = local(A); if( n<0, 0, n*=3; A = x * O(x^n); polcoeff( (eta(x + A) / eta(x^9 + A))^3, n))}; /* Michael Somos, Aug 09 2006 */
(PARI) {a(n) = local(A); if( n<0, 0, A = x * O(x^n); A = eta(x + A) / eta(x^2 + A); A = subst(A + x * O(x^(n\3)), x, x^3)^3 / A; polcoeff( A + 4*x / A^2, n))}; /* Michael Somos, Aug 09 2006 */
CROSSREFS
KEYWORD
sign,easy
AUTHOR
N. J. A. Sloane, Nov 27 2000
STATUS
approved