OFFSET
1,3
MAPLE
ChessPawnTriangle := proc(r, c) option remember;
if r < 2 or c < 1 then 0
elif 2 = r then 1
elif 4 = r then 1+add(ChessPawnTriangle(r-1, c+j), j=-1..1)
else add(ChessPawnTriangle(r-1, c+j), j=-1..1)
fi
end:
seq(ChessPawnTriangle(j, 1), j=1..30);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 30 2001
STATUS
approved
