偶数的哥猜解个数的接近实际的下限公式

ysr

p=1206701  p1=1206703
p=1278029  p1=1278031
p=1321349  p1=1321351
p=1424441  p1=1424443
p=1441199  p1=1441201
用时0.7402344秒

ysr

p=1481  p1=1483
p=1721  p1=1723
p=2549  p1=2551
p=2969  p1=2971
p=3539  p1=3541
p=4421  p1=4423
p=8009  p1=8011
p=10301  p1=10303
p=17291  p1=17293
用时3.90625E-03秒 ， 数据小的时候能找到很多孪生素数，数据大的时候很难找出来

ysr

p=1099510584971  p1=1099510584973
用时27.6875秒代码如下：

Private Sub Command1_Click() '快速找孪生素数
Dim A, B
a1 = Text1: B1 = Text2
ts = Timer
A2 = ksm2(Val(a1))
s = 5201
Do While Val(s) <= B1
A = Trim(A2)
p = MPC(MbC(Trim(A), Trim(A)), Trim(A))
p = MPC1(Trim(p), Trim(s))
c = fenjieyinzi0(Trim(p))
If InStr(c, "*") = 0 Then
p1 = MPC1(Trim(p), 2)
C1 = fenjieyinzi0(Trim(p1))
If InStr(C1, "*") = 0 Then
s2 = s2 + 1
s1 = s1 & "p=" & p & "  p1=" & p1 & vbCrLf
End If
End If

s = s + 2
Loop

If Val(s2) > 0 Then
Text3 = s1 & "用时" & Timer - ts & "秒"
Else
Text3 = "wu  jie    " & "用时" & Timer - ts & "秒"
End If

End Sub

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

End Sub