OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..250
MATHEMATICA
T[i_, j_]:= T[i, j] = Module[{r, s, t1}, If[i == 0 && j == 0, Return[1]];
If[j == 0, Return[1]]; t1 = T[i, j - 1]; For[r = 0, r <= i - j, r++,
For[s = 0, s <= j, s++, If[r + s != i, t1 = t1 + T[r + s, s]]]];
Return[t1]]; Table[T[n, n], {n, 0, 25}] (* G. C. Greubel, Jan 04 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 24 2001
STATUS
approved