|
%I #6 Jan 30 2020 18:13:49
%S 1,3,15,85,531,3600,26266,205353,1716582,15321056,145819266,
%T 1477589301,15908557455,181553715486,2190398368254,27859946518796,
%U 372542199781464,5223365137285467,76597458027515272,1172078722366916586
%N Column 2 of triangle A127082.
%C Convolution cube of A127088.
%H G. C. Greubel, <a href="/A127085/b127085.txt">Table of n, a(n) for n = 2..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, 2], {n,2,25}] (* _G. C. Greubel_, Jan 30 2020 *)
%Y Cf. A127082.
%Y Columns of A127082: A127083, A127084, A127086.
%Y Cf. A127087, A127088, A127089, A127090, A127091.
%K nonn
%O 2,2
%A _Paul D. Hanna_, Jan 04 2007
|
