|
带有（数字理论););P（P）:=程序(我)地方的 一,b条,j个,k个,秒,n个;
P： =程序（i）
局部a、b、c、j、k、s、s2、n；
对于3中的n 通过 1对我来说 b条:=ifactors公司(n个)[2];
b： =（convert（ifactors（n），`+`）-1）；c： =nops（b）；j： =0；s： =0；
s： =加（b[k][1]*b[k][2]，k=1..nops（b））；
对于 k个:=0;j个 从 c:=n个;虽然 通过-1j个 到国防部 2<>1做秒k个:=秒k个+转换(b条[1;j个:=j个], `*`);/2;日;一:=西格玛(2*n个+1)+西格玛(2*n个-1)+西格玛(n个/2^k个)*2^(k个+1)-6*n个-2;
a： ={}；
对于k从2到n-1 do
如果abs（（n-modk）-k/2）<1，则a:=并集{k}；fi；
od；
b： =nops（a）；c： =op（a）；s2:=0；
如果b=1，则s2:=c；
否则k从1到b等于s2:=s2+c[k]；od；
fi；
如果特朗克类型(s2秒/秒)=s2秒一/秒 ,整数)然后打印（n）；fi（菲涅耳）;;日;结束:P（P）(2000);
od；
结束时间：
P（2000）
| 