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

ysr

2^100内有15个素数：7+2^2
7+2^4
7+2^6
7+2^8
7+2^10
7+2^16
7+2^18
7+2^20
7+2^28
7+2^30
7+2^38
7+2^44
7+2^78
7+2^88
7+2^98

ysr

2^100内有12个素数：11+2^1
11+2^3
11+2^5
11+2^7
11+2^9
11+2^15
11+2^23
11+2^29
11+2^31
11+2^55
11+2^71
11+2^77

ysr

2^350内有8个素数：13+2^2
13+2^4
13+2^8
13+2^20
13+2^38
13+2^64
13+2^80
13+2^292

ysr

2^350内有5个孪生素数：（用时4411.254秒）7+2^2,9+2^2
7+2^6,9+2^6
7+2^10,9+2^10
7+2^18,9+2^18
7+2^30,9+2^30

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