|
带（迭代器）：
根挖掘：=进程（n）
局部i、j、ptn、ans、a、orb2、orb4、hasptn、nextptn；
（hasptn，nextptn）：=模块致畸器（分区部件计数（n-1））；
ans:=0；
while hasptn（）do
ptn：=下一个ptn（）；
a：=1/mul（j^ptn[j]*ptn[j]！，j=1..n-1）；
orb2:=添加（ptn[j]，j=2..n-1，2）；
orb4：=加（ptn[j]*j/2，j=2..n-1，2）
+加（ptn[j]*（j+1）/2，j=1..n-1，2）
+加（ptn[j]*（ptn=j]-1）*j/2，j=1..n-1）
+添加（添加（ptn[i]*ptn[j]*igcd（i，j），i=1..j-1），j=2..n-1）；
ans:=ans+a*2^orb2*4^orb4；
结束do；
ans；
终末程序；
| 