|
MAPLE公司
|
F: =程序(n,L)
局部Ln,k,S,v;
Ln[1]:=数论:-除数(n);
v: =1;
对于k从2到nops(L)+1 do
S: =选择(`>`,L[k-1],v);
如果S={},则返回convert(Ln,list)fi;
v: =最小值(S);
Ln[k]:=S;
od;
转换(Ln,列表);
结束过程:
p: =2:vmax:=1:Res:=0,1:
当vmax<100 do时,iter从1开始
q: =下一素数(p);
如果q-p>vmax,则
R: =[{1,p}];
对于从p+1到q do的n
R: =F(n,R);
v: =nops(R)-1;
如果v>vmax,则
vmax:=v;
Res:=Res,n;
fiod fi;
p: =q;
日期:
|