数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
楼主: ysr

研究哥猜解中的最小素数的程序

[复制链接]
 楼主| 发表于 2022-9-1 10:29 | 显示全部楼层
2^30=有10位,用时0秒1073741824.
1073741824+7=1073741831为素数。
1073741824+9=1073741833是素数。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-1 10:34 | 显示全部楼层
代码如下:

Private Sub Command1_Click()
Dim ax
ax = Val(Text1)
ts = Timer

b = Val(Text2)
s = 0
Do While s <= b
s = s + 1
s1 = qxdcm(Trim(2), Trim(s))
p = MPC1(Trim(ax), Trim(s1))
p1 = MPC1(Trim(p), Trim(2))
If InStr(fenjieyinzi0(Trim(p)), "*") = 0 And InStr(fenjieyinzi0(Trim(p1)), "*") = 0 Then
Text3 = Text3 & ax & "+2^" & s & "," & ax + 2 & "+2^" & s & vbCrLf
s2 = s2 + 1
Else
s2 = s2
End If

Loop
Combo1 = "2^" & b & "内有" & s2 & "个孪生素数:(用时" & Timer - ts & "秒)" & Text3

End Sub



Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Form1.Cls
End Sub

Private Function qxdcm(sa As String, sb As String) As String

Dim a, b
a = sa: b = sb
If b = 1 Then
qxdcm = a
ElseIf b = 0 Then
qxdcm = 1
Else
a1 = a
Do While b > 1
s = Int(Log(b) / Log(2))
s1 = 0
Do While s1 < s
a = MbC(Trim(a), Trim(a))
s1 = s1 + 1
Loop
a2 = a
b = b - 2 ^ s
a = a1
If s2 > 0 Then
a3 = MbC(Trim(a3), Trim(a2))
Else
a3 = a2
End If
s2 = s2 + 1
Loop
If b = 1 Then
qxdcm = MbC(Trim(a3), Trim(a1))
Else
qxdcm = a3
End If

End If

End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-1 13:54 | 显示全部楼层
2^149与2^350内有1个孪生素数:(用时4340.438秒)20593+2^200,20595+2^200
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-1 13:57 | 显示全部楼层
2^292=有88位,用时0秒7957171782556586274486115970349133441607298412757563479047423630290551952200534008528896,
7957171782556586274486115970349133441607298412757563479047423630290551952200534008528896+13=7957171782556586274486115970349133441607298412757563479047423630290551952200534008528909是素数。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-2 12:01 | 显示全部楼层
2^100内有3个孪生素数:(用时320.1563秒)13+2^2,15+2^2
13+2^4,15+2^4
13+2^8,15+2^8
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-2 12:52 | 显示全部楼层
本帖最后由 ysr 于 2022-9-2 04:54 编辑

2^100内有1个孪生素数:(用时224.8789秒)31+2^12,33+2^12


2^20内有1个孪生素数:(用时3.90625E-03秒)61+2^12,63+2^12
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-2 14:17 | 显示全部楼层
2^100内有1个孪生素数:(用时275.4492秒)61+2^12,63+2^12
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-2 20:07 | 显示全部楼层
2^100内有3个孪生素数:(用时268.5078秒)67+2^2,69+2^2
67+2^10,69+2^10
67+2^14,69+2^14
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-2 22:56 | 显示全部楼层
2^100内有2个孪生素数:(用时273.7969秒)73+2^6,75+2^6
73+2^24,75+2^24
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-9-3 11:01 | 显示全部楼层
2^200内有3个孪生素数:(用时407.6094秒)67+2^2,69+2^2
67+2^10,69+2^10
67+2^14,69+2^14
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2024-3-29 21:53 , Processed in 0.069336 second(s), 14 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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