带(迭代器):
根挖掘:=进程(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;
终末程序;