|
b： =proc（n，i）选项记忆`如果`（n=0，[[]]，
`如果`（i<1，[]，[b（n，i-1）[]，seq（映射（p->[p[]，[i，j]]），
b（n-i*j，i-1）[]，j=1…n/i）]））
结束时间：
A： =proc（n，k）选项记忆；加（加）*
igcd（i[1]，j[1]），j=t），i=s）/mul（i[1]^i[2]*i[2]！，i=s）
/mul（i[1]^i[2]*i[2]！，i=t），t=b（n$2）），s=b（n$2））
结束时间：
a： =n->加（a（n，n-i）*（-1）^i*二项式（n，i），i=0..n）：
seq（a（n），n=0..10）；
| 