A127085 Column 2 of triangle A127082.
1, 3, 15, 85, 531, 3600, 26266, 205353, 1716582, 15321056, 145819266, 1477589301, 15908557455, 181553715486, 2190398368254, 27859946518796, 372542199781464, 5223365137285467, 76597458027515272, 1172078722366916586
Offset: 2
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 2..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, 2], {n,2,25}] (* G. C. Greubel, Jan 30 2020 *)
Comments