OFFSET
0,3
MAPLE
aaa := proc(m, n) option remember; local i, j, r, s, t1; if m=0 and n=0 then RETURN(0); fi; if m=1 and n=0 then RETURN(1); fi; if n = 0 and m mod 2 = 1 then RETURN(0); fi; if m = 0 and n mod 2 = 0 then RETURN(0); fi; s := m+n; if s mod 2 = 1 then t1 := aaa(m+1, n-1); for j from 0 to n-1 do t1 := t1+aaa(m, j); od: else t1 := aaa(m-1, n+1); for j from 0 to m-1 do t1 := t1+aaa(j, n); od: fi; RETURN(t1); end; # the n-th antidiagonal in the up direction is aaa(n, 0), aaa(n-1, 1), aaa(n-2, 2), ..., aaa(0, n)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 20 2001
STATUS
approved