A127131 Self-convolution square-root of column 1 (A127128) of triangle A127126.

1, 1, 4, 23, 175, 1650, 18451, 237703, 3457763, 55967155, 996755108, 19360232181, 407152004331, 9215091412811, 223307281633261, 5768104533416742, 158197552561322216, 4591028199312877166, 140551293414196198297

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-1)*Sum[T[r, c], {c, k+1, r}], {r, k+1, n}] +x^(n+1))^(k+1), x, n-k]]; CoefficientList[Series[ (Sum[T[n, 1]*x^n, {n, 0, 22}]/x)^(1/2), {x, 0, 20}], x] (* G. C. Greubel, Jan 28 2020 *)

Crossrefs

Cf. A127126, A127127, A127128, A127129, A127130, A127132, A127133, A127134, A127135.

Sequence in context: A360868 A075729 A328006 * A083355 A141763 A025550

Adjacent sequences: A127128 A127129 A127130 * A127132 A127133 A127134

Keyword

nonn

Author

Paul D. Hanna, Jan 05 2007

Status

approved