A127087 Convolution square-root of column 1 (A127084) of triangle A127082.

1, 1, 3, 11, 48, 244, 1420, 9318, 68019, 545984, 4772890, 45079020, 456958589, 4943710161, 56809133108, 690510011727, 8845800877774, 119052630071419, 1678622651280617, 24733730857289108, 379989034049167269

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..80

Mathematica

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 *)

Crossrefs

Cf. A127082, A127083, A127084, A127085, A127086, A127088, A127089, A127090, A127091.

Sequence in context: A186185 A367874 A317170 * A113060 A372623 A186374

Adjacent sequences: A127084 A127085 A127086 * A127088 A127089 A127090

Keyword

nonn

Author

Paul D. Hanna, Jan 04 2007

Status

approved