第52个梅森素数又已经被找到

ysr

第52个梅森素数又被找到了，找到者卢克好像又是美国人，是用GPU程序找到的。
据说专家已经用卢卡斯来默法测试了多次，确认了是个素数。

看来，梅森素数的确可能是无穷多的。

ysr

Private Sub Command1_Click() '验证梅森数
'目前发现的三种可以分解的类型，因数分别是2p+1，6p+1，8p+1
'仅仅试除这3个因数
'梅森素数的判断一般用卢卡斯-莱莫法，我的程序速度慢所以数据大的没法用
'程序还需要改进
Dim A, B
A = Text1: B = Text2: c = Text3
B1 = B
ts = Timer

js5 = qksmimo(Trim(A), Trim(B1), Trim(c))
s3 = Len(B)
If js5 <> 1 Then
Text4 = "指数有" & s3 & "位，用时" & Timer - ts & "秒，余数是" & js5
Else
Text4 = "可能是梅森素数的指数"
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

ysr

136279841+1=136279842=2*3*1381*16447
136279841-1=136279840=2^5*5*851749
168291997+1=168291998=2*7*2113*5689
168291997-1=168291996=2^2*3*14024333