|
|
|
|
1, 1, 5, 48, 727, 15455, 428338, 14732200, 607324669, 29250572599, 1614093015100, 100494752982578, 6973042276811149, 533791252851029495, 44701948131110427743, 4066190846579443681053, 399302066160095572863595
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
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[2*n, n]/(n+1), {n, 0, 15}] (* G. C. Greubel, Jan 30 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|