|
%I #9 Jan 30 2020 19:10:18
%S 1,2,7,28,127,650,3737,23996,170866,1338578,11446714,106063630,
%T 1057817614,11288886056,128243813228,1543828592478,19616461337281,
%U 262178561430244,3674568043513202,53861542554953612,823710227331537712
%N Column 1 of triangle A127082.
%C Convolution square of A127087.
%H G. C. Greubel, <a href="/A127084/b127084.txt">Table of n, a(n) for n = 1..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, 1], {n,1,25}] (* _G. C. Greubel_, Jan 30 2020 *)
%Y Cf. A127082.
%Y Columns of A127082: A127083, A127085, A127086.
%Y Cf. A127087, A127088, A127089, A127090, A127091.
%K nonn
%O 1,2
%A _Paul D. Hanna_, Jan 04 2007
|
