数学研发论坛

 找回密码
 欢迎注册
查看: 565|回复: 1

[原创] 5777同时满足变参数的的lucas伪素数与76为底的强伪素数

[复制链接]
发表于 2020-3-5 14:00:29 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?欢迎注册

x
http://ntheory.org/data/slpsps.txt
上面的是lucas伪素数,变参数的

  1. MillerRabin[n0_,a0_]:=Module[{n=n0,a=a0,s,m,t1,k},
  2.     s=0;m=n-1;While[Mod[m,2]==0,m=m/2;s=s+1];
  3.     t1=PowerMod[a,m,n];
  4.     If[t1==1,Return[True]];
  5.     k=0;While[k<s-1&&t1!=n-1,k=k+1;t1=Mod[t1^2,n]];
  6.     If[t1==n-1,Return[True],Return[False]]
  7. ]

复制代码


毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2020-3-5 14:05:30 | 显示全部楼层
5701
是素数,且5777通过了这个SPRP测试,
为什么呢?
因为5701-5777=-76
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2020-7-12 23:55 , Processed in 0.055540 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表