OFFSET
0,2
MATHEMATICA
T[n_, k_] := T[n, k] = If[n < k || k < 0, 0, If[k = 1 || k == n, 1, Sum[T[n-k, j]T[k, k-j], {j, 0, k}]]]
Table[Sum[T[n, k], {k, 0, n}], {n, 0, 50}] [Emanuele Munarini, May 16 2012]
PROG
(Maxima) T(n, k):= if ( n<k or k<0 ) then 0 else if ( k<=1 or k=n ) then 1 else sum(T(n-k, j)*T(k, k-j), j, 0, k);
makelist(sum(T(n, k), k, 0, n), n, 0, 12); [Emanuele Munarini, May 12 2012]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jul 20 2004
STATUS
approved