logmax=0;aa={};Do[min=10^100;max=0;ile=0;Do[If[GCD[m,n,n-m]==1,ile=ile+1;s=m n(n-m);k=系数整数[s];g=1;做[g=g k[[p]][1],{p,1,长度[k]}];如果[g>max,max=g;mmax=m];如果[g<min,min=g;mmin=m]],{m,1,n-1}];如果[(Log[n]/Log[min])>logmax,logmax=(Log[n]/Log[min]);附加到[aa,n];打印[{N[logmax],N,mmin,min,mmax,max}];附加到[ff,n]],{n,2,2500}];aa公司
|