A127089 Convolution 4th root of column 3 (A127086) of triangle A127082.

1, 1, 5, 32, 239, 1981, 17757, 169765, 1717730, 18311250, 205075693, 2408303246, 29611689597, 380712483013, 5111573917042, 71576222215342, 1043901890068909, 15835797676490439, 249530033466698385, 4078781718332965858

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, 3]*x^n, {n, 0, 25}]/x^3)^(1/4), {x, 0, 20}], x] (* G. C. Greubel, Jan 30 2020 *)

Crossrefs

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

Sequence in context: A102231 A365181 A367281 * A241769 A208046 A198598

Adjacent sequences: A127086 A127087 A127088 * A127090 A127091 A127092

Keyword

nonn

Author

Paul D. Hanna, Jan 04 2007

Status

approved