%I #34 Mar 29 2023 08:57:27
%S 1,3,9,28,93,333,1271,5064,20673,85460,355659,1486719,6238608,
%T 26278281,111114558,471608944,2008906581,8586410085,36816550550,
%U 158332335279,682843960665,2952865525730,12802463157570,55646477022330,242465061290160,1059022767175173,4636452916770489
%N Expansion of g.f. A(x) satisfying A(x)^3 = A( x^3/(1 - 3*x)^3 ).
%C Related Catalan identity: F(x)^2 = F( x^2/(1 - 2*x)^2 ), where F(x) = x*C(x)^2 and C(x) = 1 + x*C(x)^2 is the g.f. of the Catalan numbers (A000108).
%C Radius of convergence of g.f. A(x) is r where r is the real root of r = (1 - 3*r)^(3/2) with A(r) = 1 and r = (52 - (324*sqrt(717) + 8108)^(1/3) + (324*sqrt(717) - 8108)^(1/3))/162 = 0.214054846272632706742...
%H Paul D. Hanna, <a href="/A361763/b361763.txt">Table of n, a(n) for n = 1..500</a>
%F G.f. A(x) = Sum_{n>=1} a(n)*x^n satisfies:
%F (1) A(x)^3 = A( x^3/(1 - 3*x)^3 ).
%F (2) A(x^3) = A( x/(1 + 3*x) )^3.
%F (3) A(x) = x * Product_{n>=0} 1/(1 - 3/F(n,x))^(1/3^n), where F(0,x) = 1/x, F(m,x) = (F(m-1,x) - 3)^3 for m > 0.
%F (4) x/Series_Reversion(A(x)) = B(x) such that B(x)^3 = B(x^3) + 3*x (cf. A107092).
%e G.f.: A(x) = x + 3*x^2 + 9*x^3 + 28*x^4 + 93*x^5 + 333*x^6 + 1271*x^7 + 5064*x^8 + 20673*x^9 + 85460*x^10 + 355659*x^11 + 1486719*x^12 + ...
%e where
%e A( x^3/(1 - 3*x)^3 ) = x^3 + 9*x^4 + 54*x^5 + 273*x^6 + 1269*x^7 + 5670*x^8 + 24957*x^9 + 109593*x^10 + 482598*x^11 + 2133082*x^12 + ...
%e which equals A(x)^3.
%e RELATED SERIES.
%e Notice that the following cube root is an integer series
%e ( A(x)/x )^(1/3) = 1 + x + 2*x^2 + 5*x^3 + 15*x^4 + 52*x^5 + 197*x^6 + 779*x^7 + 3135*x^8 + 12709*x^9 + 51757*x^10 + ... + A361762(n)*x^n + ...
%e Also, let B(x) satisfy A(x/B(x)) = x and B(A(x)) = A(x)/x,
%e then B(x) = x/Series_Reversion(A(x)) is the g.f. of A107092,
%e B(x) = 1 + 3*x + x^3 - x^6 + 2*x^9 - 4*x^12 + 9*x^15 - 22*x^18 + 55*x^21 - 142*x^24 + 376*x^27 - 1011*x^30 + ...
%e such that B(x)^3 = B(x^3) + 3*x,
%e as shown by the series
%e B(x)^(1/3) = 1 + x - x^2 + 2*x^3 - 4*x^4 + 9*x^5 - 22*x^6 + 55*x^7 - 142*x^8 + 376*x^9 - 1011*x^10 + ...
%e SPECIFIC VALUES.
%e A(1/5) = A(1/8)^(1/3) = 0.586384210523490911367880492498...
%e A(1/5) = (1/5) * (1 - 3/5)^(-1) * (1 - 3/8)^(-1/3) * (1 - 3/125)^(-1/9) * (1 - 3/1815848)^(-1/27) * ...
%e A(1/6) = A(1/27)^(1/3) = 0.346688997573685318336777346240...
%e A(1/6) = (1/6) * (1 - 3/6)^(-1) * (1 - 3/27)^(-1/3) * (1 - 3/13824)^(-1/9) * (1 - 3/2640087986661)^(-1/27) * ...
%e A(1/9) = A(1/216)^(1/3) = 0.16744549995321182031691216552466...
%e A(1/12) = A(1/729)^(1/3) = 0.11126394649161862248626102306202...
%o (PARI) {a(n) = my(A=x); for(i=1, #binary(n+1), A = ( subst(A, x, x^3/(1 - 3*x +x*O(x^n))^3 ) )^(1/3) ); polcoeff(A, n)}
%o for(n=1, 30, print1(a(n), ", "))
%Y Cf. A361762 ((A(x)/x)^(1/3)), A264230, A107092, A091190, A361765.
%Y Cf. A264228, A264229, A264230.
%K nonn
%O 1,2
%A _Paul D. Hanna_, Mar 23 2023