b: =proc(n,i,h,v)选项记忆`如果`(n=0,
`如果`(v=0,1,0),`如果`(i<1或v<1或n<v,0,
`如果`(n=v,1,加上(二项式(A(i,min(i-1,h))+j-1,j)
*b(n-i*j,i-1,h,v-j),j=0..min(n/i,v))))
结束:
A: =proc(n,k)选项记忆;
`如果`(n<2,n,加上(b(n-1$2,j$2),j=1..分钟(k,n-1))
结束:
a: =n->b(2*n-1$2,n$2):
seq(a(n),n=0..40);
|