OFFSET
0,3
LINKS
Paul D. Hanna, Table of n, a(n) for n = 0..1000
FORMULA
G.f. A(x) = Sum_{n>=1} a(n)*x^n satisfies the following formulas.
(1) A(x) = Product_{n>=0} (1 + (x*A(x)^3)^(3^n)).
(2) A(x) = (1 + x*A(x)^3) * A( x^3*A(x)^6*(1 + x*A(x)^3)^3 ).
(3) A(x)^3 = (1/x) * Series_Reversion( x / Product_{n>=0} (1 + x^(3^n))^3 ).
(4) A(x) = P * A( x^9*A(x)^24 * P^3 ) where P = (1 + x*A(x)^3)*(1 + x^3*A(x)^9).
(5) A(x) = P * A( x^27*A(x)^78 * P^3 ) where P = (1 + x*A(x)^3)*(1 + x^3*A(x)^9)*(1 + x^9*A(x)^27).
(6) A(x) = P * A( x^(3^n)*A(x)^(3*3^n-3) * P^3 ) where P = Product_{k=0..n-1} (1 + (x*A(x)^3)^(3^k)) for n >= 1.
EXAMPLE
G.f.: A(x) = 1 + x + 3*x^2 + 13*x^3 + 68*x^4 + 393*x^5 + 2406*x^6 + 15298*x^7 + 99993*x^8 + 667759*x^9 + 4536791*x^10 + ...
where A(x) = (1 + x*A(x)^3) * (1 + x^3*A(x)^9) * (1 + x^9*A(x)^27) * (1 + x^27*A(x)^81) * ...
RELATED SERIES.
The self-convolution cube of this sequence yields A391524:
A(x)^3 = 1 + 3*x + 12*x^2 + 58*x^3 + 318*x^4 + 1887*x^5 + 11772*x^6 + 75969*x^7 + 502554*x^8 + ... + A391524(n+1)*x^n + ...
PROG
(PARI) {a(n) = my(A, N = ceil(log(n+1)/log(3)));
A = ((1/x)*serreverse( x / prod(k=0, N, (1 + x^(3^k) +x*O(x^n))^3 )))^(1/3);
polcoef(A, n)}
for(n=0, 30, print1(a(n), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Dec 18 2025
STATUS
approved
