b： =proc（n，i）选项记忆`如果`（n＝0，[1，0]，
`如果`（i<1，[0,0]，`if`（i>n，b（n，i-1），
（（g，h）->g+h+[0，h[1]*i^7]）（b（n，i-1），b（n-i，i））
结束时间：
a： =n->b（n，n）[2]：
seq（a（n），n=0..40）；
#第二个Maple项目：
g:=（总和（k^7*x^k/（1-x^k），k=1.100）/（乘积（1-x*k，k=1..100））：gser:=系列（g，x=0，45）：seq（系数（gser，x，m），m=1。。40); #Emeric Deutsch公司2015年12月6日
