搜索: a360184-编号:a360184
|
|
|
|
2047, 8911, 129921, 381347461, 333515107081, 37388680793101, 713808066913201, 665242007427361, 179042026797485691841, 8915864307267517099501, 331537694571170093744101, 2359851544225139066759651401, 17890806687914532842449765082011
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
2,1
|
|
评论
|
|
|
链接
|
|
|
黄体脂酮素
|
(PARI)
strong_check(p,base,e,r)=我的(tv=估价(p-1,2));tv>e&&Mod(基本,p)^((p-1)>>(tv-e))==r;
strong_fermat_psp(A,B,k,base)=A=最大值(A,vecprod(质数(k)));(f(m,l,lo,k,e,r)=my(list=list());my(hi=sqrtnint(B\m,k));如果(lo>hi,返回(列表));如果(k==1,对于步长(p=升力(1/Mod(m,l))),hi,l,如果(isprimepower(p)&&gcd(m*base,p)==1&strong_check(p,base,e,r),my(n=m*p);如果(n>=A&&(n-1)%znorder(Mod(base,p))==0,listput(list,n))),则表示prime(p=lo,hi,base%p==0&&next;strong_check(p,base,e,r)||next;my(z=znorder(Mod(base,p)));gcd(m,z)==1||下一个;my(q=p,v=m*p);而(v<=B,list=concat(list,f(v,lcm(l,z),p+1,k-1,e,r));q*=p;Mod(基数,q)^z==1||中断;v*=p));列表);我的(res=f(1,1,2,k,0,1));对于(v=0,logint(B,2),res=concat(res,f(1,1,2,k,v,-1));向量排序(Set(res));
a(n)=如果(n<2,return());my(x=vecprod(素数(n)),y=2*x);而(1,my(v=strong_fermat_psp(x,y,n,n));如果(#v>=1,返回(v[1]));x=y+1;y=2*x);
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.004秒内完成
|