|
%I #10 Jan 30 2020 18:13:36
%S 1,1,2,5,16,64,308,1728,11046,79065,625049,5397939,50476959,507435548,
%T 5451145709,62260278817,752770290544,9598571168318,128651201239737,
%U 1807273852520354,26541004709809462,406530038758976731
%N Column 0 and row sums of triangle A127082.
%H G. C. Greubel, <a href="/A127083/b127083.txt">Table of n, a(n) for n = 0..80</a>
%t T[n_, k_]:= T[n, k]= If[k==n, 1, Coefficient[(1 + x*Sum[x^(r-k)*Sum[T[r, c], {c,k,r}], {r,k,n-1}] + x^(n+1))^(k+1), x, n-k]]; Table[T[n, 0], {n,0,25}] (* _G. C. Greubel_, Jan 30 2020 *)
%Y Cf. A127082;
%Y Columns of A127082: A127084, A127085, A127086.
%Y Cf. A127087, A127088, A127089, A127090, A127091.
%K nonn
%O 0,3
%A _Paul D. Hanna_, Jan 04 2007
|
