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

ysr

2^30=有10位，用时0秒1073741824.
1073741824+7=1073741831为素数。
1073741824+9=1073741833是素数。

ysr

代码如下：

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

ysr

2^149与2^350内有1个孪生素数：（用时4340.438秒）20593+2^200,20595+2^200

ysr

2^292=有88位，用时0秒7957171782556586274486115970349133441607298412757563479047423630290551952200534008528896，
7957171782556586274486115970349133441607298412757563479047423630290551952200534008528896+13=7957171782556586274486115970349133441607298412757563479047423630290551952200534008528909是素数。

ysr

2^100内有3个孪生素数：（用时320.1563秒）13+2^2,15+2^2
13+2^4,15+2^4
13+2^8,15+2^8

ysr

2^100内有1个孪生素数：（用时224.8789秒）31+2^12,33+2^12


2^20内有1个孪生素数：（用时3.90625E-03秒）61+2^12,63+2^12

ysr

2^100内有1个孪生素数：（用时275.4492秒）61+2^12,63+2^12

ysr

2^100内有3个孪生素数：（用时268.5078秒）67+2^2,69+2^2
67+2^10,69+2^10
67+2^14,69+2^14

ysr

2^100内有2个孪生素数：（用时273.7969秒）73+2^6,75+2^6
73+2^24,75+2^24

ysr

2^200内有3个孪生素数：（用时407.6094秒）67+2^2,69+2^2
67+2^10,69+2^10
67+2^14,69+2^14