|
|
A127085
|
|
Column 2 of triangle A127082.
|
|
10
|
|
|
1, 3, 15, 85, 531, 3600, 26266, 205353, 1716582, 15321056, 145819266, 1477589301, 15908557455, 181553715486, 2190398368254, 27859946518796, 372542199781464, 5223365137285467, 76597458027515272, 1172078722366916586
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|