A127133 Self-convolution 4th root of column 3 (A127130) of triangle A127126.

1, 1, 6, 52, 576, 7591, 114365, 1923185, 35541761, 714104502, 15475682769, 359547718332, 8911727170149, 234697278951915, 6544781944957233, 192669771715328227, 5971713743277322517, 194402722591654350978

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

Crossrefs

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

Sequence in context: A365755 A232821 A355162 * A243249 A075756 A363008

Adjacent sequences: A127130 A127131 A127132 * A127134 A127135 A127136

Keyword

nonn

Author

Paul D. Hanna, Jan 05 2007

Status

approved