A127084 Column 1 of triangle A127082.
1, 2, 7, 28, 127, 650, 3737, 23996, 170866, 1338578, 11446714, 106063630, 1057817614, 11288886056, 128243813228, 1543828592478, 19616461337281, 262178561430244, 3674568043513202, 53861542554953612, 823710227331537712
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..80
Crossrefs
Programs
-
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]]; Table[T[n, 1], {n,1,25}] (* G. C. Greubel, Jan 30 2020 *)
Comments