|
%I #8 Jan 30 2020 22:03:32
%S 1,1,5,32,239,1981,17757,169765,1717730,18311250,205075693,2408303246,
%T 29611689597,380712483013,5111573917042,71576222215342,
%U 1043901890068909,15835797676490439,249530033466698385,4078781718332965858
%N Convolution 4th root of column 3 (A127086) of triangle A127082.
%H G. C. Greubel, <a href="/A127089/b127089.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]]; CoefficientList[Series[ (Sum[T[n, 3]*x^n, {n,0,25}]/x^3)^(1/4), {x,0,20}], x] (* _G. C. Greubel_, Jan 30 2020 *)
%Y Cf. A127082, A127083, A127084, A127085, A127086, A127087, A127088, A127090, A127091.
%K nonn
%O 0,3
%A _Paul D. Hanna_, Jan 04 2007
|
