S: =进程(n,k,m)
选项记忆;
局部p,j;
如果k=0,那么如果n=0,则返回1,否则返回0 fi
elif m<1,然后返回0
elif n<k然后返回0
elif n>k*m^2,然后返回0
fi;
如果m^2>n,则
p: =楼层(平方米(n));
如果p::偶数,则p:=p-1 fi;
返回进程名(n,k,p)
fi;
添加(进程名(n-j*m^2,k-j,m-2),j=0..n/m^2)
结束进程:
序列(S(72*n+42,10,72*n+42),n=0..100)#罗伯特·伊斯雷尔2019年2月24日