|
MAPLE
|
g:= proc(x, y, p) (h-> `if`(x=0, add(`if`(coeff(h, z, i)=2, 1, 0),
i=0..degree(h)), b(x, y, h)))(p+`if`(coeff(p, z, y)<3, z^y, 0))
end:
b:= proc(x, y, p) option remember; `if`(y+2<=x,
g(x-1, y+1, p), 0)+`if`(y>0, g(x-1, y-1, p), 0)
end:
a:= n-> g(2*n, 0$2):
seq(a(n), n=0..18);
|