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

ysr

求p+2^n的素数，程序结果：
2^100内有15个素数：3+2^1/3+2^2/3+2^3/3+2^4/3+2^6/3+2^7/3+2^12/3+2^15/3+2^16/3+2^18/3+2^28/3+2^30/3+2^55/3+2^67/3+2^84/

ysr

代码如下：
Private Sub Command1_Click()
Dim ax
ax = Val(Text1)
b = Val(Text2)
s = 0
Do While s <= b
s = s + 1
s1 = qxdcm(Trim(2), Trim(s))
p = MPC1(Trim(ax), Trim(s1))
If InStr(fenjieyinzi0(Trim(p)), "*") = 0 Then
Text3 = Text3 & ax & "+2^" & s & "/"
s2 = s2 + 1
Else
s2 = s2
End If

Loop
Combo1 = "2^" & b & "内有" & s2 & "个素数：" & Text3

End Sub

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

ysr

程序结果：
2^50内有5个素数：5+2^1/5+2^3/5+2^5/5+2^11/5+2^47/

ysr

程序结果：
2^100内有6个素数：5+2^1
5+2^3
5+2^5
5+2^11
5+2^47
5+2^53

ysr

稍修改的代码如下：
Private Sub Command1_Click()
Dim ax
ax = Val(Text1)
b = Val(Text2)
s = 0
Do While s <= b
s = s + 1
s1 = qxdcm(Trim(2), Trim(s))
p = MPC1(Trim(ax), Trim(s1))
If InStr(fenjieyinzi0(Trim(p)), "*") = 0 Then
Text3 = Text3 & ax & "+2^" & s & vbCrLf
s2 = s2 + 1
Else
s2 = s2
End If

Loop
Combo1 = "2^" & b & "内有" & s2 & "个素数：" & Text3

End Sub

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

ysr

程序结果：
2^100内有15个素数：3+2^1
3+2^2
3+2^3
3+2^4
3+2^6
3+2^7
3+2^12
3+2^15
3+2^16
3+2^18
3+2^28
3+2^30
3+2^55
3+2^67
3+2^84

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