%I #47 Feb 26 2024 11:24:26
%S 1,1,0,1,2,0,1,8,3,0,1,20,30,4,0,1,40,147,80,5,0,1,70,504,672,175,6,0,
%T 1,112,1386,3600,2310,336,7,0,1,168,3276,14520,18150,6552,588,8,0,1,
%U 240,6930,48048,102245,72072,16170,960,9,0,1,330,13464,137280,455455,546546,240240,35904,1485,10,0,1,440,24453,350064,1701700,3179904,2382380,700128,73359,2200,11,0,1,572,42042,815100,5542680,15148224,17672928,8868288,1833975,140140,3146,12,0
%N Triangle where g.f. C = C(x,m) and related series S = S(x,m) and D = D(x,m) satisfy S = x*C*D, C = 1 + x*S*D, and D = 1 + m*x*S*C, as read by rows of coefficients T(n,k) of x^(2*n)*m^k in C(x,m) for n>=0, k=0..n.
%H Paul D. Hanna, <a href="/A278881/b278881.txt">Table of n, a(n) for n = 0..1080 for rows 0..45 of the flattened form of this triangle.</a>
%H Thomas Einolf, Robert Muth, and Jeffrey Wilkinson, <a href="https://arxiv.org/abs/2107.13417">Injectively k-colored rooted forests</a>, arXiv:2107.13417 [math.CO], 2021.
%H Tad White, <a href="https://arxiv.org/abs/2401.01462">Quota Trees</a>, arXiv:2401.01462 [math.CO], 2024. See p. 20.
%F G.f. C = C(x,m), and related functions S = S(x,m) and D = D(x,m) satisfy:
%F (1.a) S = x*C*D.
%F (1.b) C = 1 + x*S*D.
%F (1.c) D = 1 + m*x*S*C.
%F ...
%F (2.a) C = C^2 - S^2.
%F (2.b) D = D^2 - m*S^2.
%F (2.c) C = (1 + sqrt(1 + 4*S^2))/2.
%F (2.d) D = (1 + sqrt(1 + 4*m*S^2))/2.
%F ...
%F (3.a) S = x*(1 + x*S)*(1 + m*x*S) / (1 - m*x^2*S^2)^2.
%F (3.b) C = (1 + x*S) / (1 - m*x^2*S^2).
%F (3.c) D = (1 + m*x*S) / (1 - m*x^2*S^2).
%F (3.d) S = x/((1 - x^2*D^2)*(1 - m*x^2*C^2)).
%F (3.e) C = 1/(1 - x^2*D^2).
%F (3.f) D = 1/(1 - m*x^2*C^2).
%F ...
%F (4.a) x = m^2*x^4*S^5 - 2*m*x^2*S^3 - m*x^3*S^2 + (1 - (m+1)*x^2)*S.
%F (4.b) 0 = 1 - (1-x^2)*C - 2*m*x^2*C^2 + 2*m*x^2*C^3 + m^2*x^4*C^4 - m^2*x^4*C^5.
%F (4.c) 0 = 1 - (1-m*x^2)*D - 2*x^2*D^2 + 2*x^2*D^3 + x^4*D^4 - x^4*D^5.
%F ...
%F (5.a) S(x,m) = Series_Reversion( x*G(-x^2)*G(-m*x^2) ), where G(x) = 1 + x*G(x)^2 is the g.f. of the Catalan numbers (A000108).
%F Logarithmic derivatives.
%F (6.a) C'/C = 2*S*S' / (C^2 + S^2).
%F (6.b) D'/D = 2*m*S*S' / (D^2 + m*S^2).
%F ...
%F T(n,k) = (k+1) * A082680(n+1,k+1) for n>=0 with T(0,0) = 1 and T(n,n) = 1 for n>0. - _Paul D. Hanna_, Dec 11 2016
%F T(n,k) = (n+k)!*(2*n-k-1)!/(k!*(n-k)!*(2*k+1)!*(2*n-2*k-1)!) for n>k>0 with T(n,0) = 1 and T(n,n) = 0 for n>0. - _Paul D. Hanna_, Dec 11 2016
%F Row sums yield A001764(n) = binomial(3*n,n)/(2*n+1).
%F Central terms: T(2*n,n) = binomial(3*n-1,n) * binomial(3*n,n)/(2*n+1).
%F Sum_{k=0..n} 2^k * T(n,k) = A258314(n-1) for n>=0.
%F Sum_{k=0..n} (-1)^k * T(n,k) = A243863(n) for n>=0.
%e This triangle of coefficients of x^(2*n)*m^k in C(x,m) for n>=0, k=0..n, begins:
%e 1;
%e 1, 0;
%e 1, 2, 0;
%e 1, 8, 3, 0;
%e 1, 20, 30, 4, 0;
%e 1, 40, 147, 80, 5, 0;
%e 1, 70, 504, 672, 175, 6, 0;
%e 1, 112, 1386, 3600, 2310, 336, 7, 0;
%e 1, 168, 3276, 14520, 18150, 6552, 588, 8, 0;
%e 1, 240, 6930, 48048, 102245, 72072, 16170, 960, 9, 0;
%e 1, 330, 13464, 137280, 455455, 546546, 240240, 35904, 1485, 10, 0;
%e 1, 440, 24453, 350064, 1701700, 3179904, 2382380, 700128, 73359, 2200, 11, 0;
%e 1, 572, 42042, 815100, 5542680, 15148224, 17672928, 8868288, 1833975, 140140, 3146, 12, 0; ...
%e Generating function:
%e C(x,m) = 1 + x^2 + (1 + 2*m)*x^4 + (1 + 8*m + 3*m^2)*x^6 +
%e (1 + 20*m + 30*m^2 + 4*m^3)*x^8 +
%e (1 + 40*m + 147*m^2 + 80*m^3 + 5*m^4)*x^10 +
%e (1 + 70*m + 504*m^2 + 672*m^3 + 175*m^4 + 6*m^5)*x^12 +
%e (1 + 112*m + 1386*m^2 + 3600*m^3 + 2310*m^4 + 336*m^5 + 7*m^6)*x^14 +
%e (1 + 168*m + 3276*m^2 + 14520*m^3 + 18150*m^4 + 6552*m^5 + 588*m^6 + 8*m^7)*x^16 +...
%e where g.f. C = C(x,m) and related series S = S(x,m) and D = D(x,m) satisfy
%e S = x*C*D, C = 1 + x*S*D, and D = 1 + m*x*S*C,
%e such that
%e C = C^2 - S^2,
%e D = D^2 - m*S^2.
%e The square of the g.f. begins:
%e C(x,m)^2 = 1 + 2*x^2 + (4*m + 3)*x^4 + (6*m^2 + 20*m + 4)*x^6 +
%e (8*m^3 + 70*m^2 + 60*m + 5)*x^8 +
%e (10*m^4 + 180*m^3 + 392*m^2 + 140*m + 6)*x^10 +
%e (12*m^5 + 385*m^4 + 1680*m^3 + 1512*m^2 + 280*m + 7)*x^12 +
%e (14*m^6 + 728*m^5 + 5544*m^4 + 9900*m^3 + 4620*m^2 + 504*m + 8)*x^14 +
%e (16*m^7 + 1260*m^6 + 15288*m^5 + 47190*m^4 + 43560*m^3 + 12012*m^2 + 840*m + 9)*x^16 +
%e (18*m^8 + 2040*m^7 + 36960*m^6 + 180180*m^5 + 286286*m^4 + 156156*m^3 + 27720*m^2 + 1320*m + 10)*x^18 +...
%o (PARI) {T(n,k) = my(S=x,C=1,D=1); for(i=0,2*n, S = x*C*D + O(x^(2*n+2)); C = 1 + x*S*D; D = 1 + m*x*S*C;); polcoeff(polcoeff(C,2*n,x),k,m)}
%o for(n=0,15, for(k=0,n, print1(T(n,k),", "));print(""))
%o (PARI) /* Explicit formula for T(n, k) */
%o {T(n,k) = if(k==0,1, if(n==k,0, (n+k)!*(2*n-k-1)!/(k!*(n-k)!*(2*k+1)!*(2*n-2*k-1)!) ))}
%o for(n=0, 15, for(k=0, n, print1(T(n, k), ", ")); print("")) \\ _Paul D. Hanna_, Dec 11 2016
%Y Cf. A278880 (S(x,m)), A278882 (D(x,m)), A278884 (central terms).
%Y Cf. A001764 (row sums), A000108, A258314 (C(x,m) at m=2), A243863.
%K nonn,tabl
%O 0,5
%A _Paul D. Hanna_, Nov 29 2016