|
%I #6 Jan 30 2020 22:03:10
%S 1,1,3,11,48,244,1420,9318,68019,545984,4772890,45079020,456958589,
%T 4943710161,56809133108,690510011727,8845800877774,119052630071419,
%U 1678622651280617,24733730857289108,379989034049167269
%N Convolution square-root of column 1 (A127084) of triangle A127082.
%H G. C. Greubel, <a href="/A127087/b127087.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, 1]*x^n, {n,0,25}]/x)^(1/2), {x,0,20}], x] (* _G. C. Greubel_, Jan 30 2020 *)
%Y Cf. A127082, A127083, A127084, A127085, A127086, A127088, A127089, A127090, A127091.
%K nonn
%O 0,3
%A _Paul D. Hanna_, Jan 04 2007
|
