《数论探秘》电子版

ysr

20000与21000之间的整数打头有1组差为1606938044258990275541962092341162602522202993782792835301376和2的整数加孪生素数对: (用时2044.385秒）
//20593/1606938044258990275541962092341162602522202993782792835321969/1606938044258990275541962092341162602522202993782792835321971
修改后的程序与前面的程序结果比较，结果一样运行时间长了

ysr

恢复原来的代码，虽然可能会漏掉个别解，但速度快概率高，可能效果好一点：

Private Sub Command1_Click() '求由1个素数和孪生素数对组成的3生素数组的程序
Dim A, B
A = Val(Text1)
a1 = A
q = Val(Text2)
ts = Timer
m = Sqr(q)
t = Trim(Text4)
a12 = A \ 6
A = Val(a12) * 6 + 1
s = 0
a2 = A
Do While a2 <= m
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 6
Loop

b2 = a2
b3 = MPC1(Trim(b2), Trim(t))
b4 = MPC1(Trim(b3), 2)


c3 = fenjieyinzi0(Trim(b3))
D1 = fenjieyinzi0(Trim(b4))

If InStr(C1, "*") = 0 And InStr(D1, "*") = 0 And InStr(C2, "*") = 0 And InStr(c3, "*") = 0 Then
s = s + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & vbCrLf
Else
s = s
End If
a2 = a2 + 6

Loop
a2 = a2
s1 = s
Do While a2 <= q
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 6
Loop


b2 = a2
b3 = MPC1(Trim(b2), Trim(t))
b4 = MPC1(Trim(b3), 2)


c3 = fenjieyinzi0(Trim(b3))
D1 = fenjieyinzi0(Trim(b4))

If InStr(C1, "*") = 0 And InStr(D1, "*") = 0 And InStr(C2, "*") = 0 And InStr(c3, "*") = 0 Then
s1 = s1 + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 6

Loop
Combo1 = a1 & "与" & q & "之间的整数打头有" & s1 & "组差为" & t & "和2的素数加孪生素数对: (用时" & Timer - ts & "秒）" & vbCrLf & Text3

End Sub

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

ysr

20000与21000之间的整数打头有1组差为1606938044258990275541962092341162602522202993782792835301376和2的整数加孪生素数对: (用时590.7461秒）
//20593/1606938044258990275541962092341162602522202993782792835321969/1606938044258990275541962092341162602522202993782792835321971
这样速度快点儿，用时才10分钟。

ysr

585505245847997855444661573841与585505245847997855444661593841之间有12对差大于200的素数对:
585505245847997855444661576449/352
585505245847997855444661577217/228
585505245847997855444661578323/354
585505245847997855444661578741/220
585505245847997855444661579371/294
585505245847997855444661579743/214
585505245847997855444661580807/240
585505245847997855444661581297/204
585505245847997855444661588889/230
585505245847997855444661589351/300
585505245847997855444661589877/334
585505245847997855444661593081/222
用时4116.039秒

ysr

585505245847997855444661593081与585505245847997855444661633081之间有25对差大于200的素数对:
585505245847997855444661594601/248
585505245847997855444661594901/240
585505245847997855444661599351/204
585505245847997855444661600923/246
585505245847997855444661601577/366
585505245847997855444661602099/232
585505245847997855444661602671/222
585505245847997855444661603101/204
585505245847997855444661603827/298
585505245847997855444661605161/290
585505245847997855444661606193/276
585505245847997855444661606851/234
585505245847997855444661609317/358
585505245847997855444661611899/218
585505245847997855444661612229/206
585505245847997855444661612863/226
585505245847997855444661613241/208
585505245847997855444661616423/224
585505245847997855444661617621/252
585505245847997855444661617849/228
585505245847997855444661618577/216
585505245847997855444661619063/296
585505245847997855444661619699/266
585505245847997855444661624263/234
585505245847997855444661627109/258
用时6251.46800000001秒

ysr

585505245847997855444661627109与585505245847997855444661667109之间有26对差大于200的素数对:
585505245847997855444661634957/246
585505245847997855444661636089/276
585505245847997855444661637387/264
585505245847997855444661640039/228
585505245847997855444661640957/300
585505245847997855444661642341/220
585505245847997855444661643019/276
585505245847997855444661645193/230
585505245847997855444661646459/206
585505245847997855444661648587/310
585505245847997855444661648833/226
585505245847997855444661652243/204
585505245847997855444661653569/210
585505245847997855444661653879/310
585505245847997855444661655979/286
585505245847997855444661657703/294
585505245847997855444661658561/212
585505245847997855444661659371/392
585505245847997855444661660199/320
585505245847997855444661660887/246
585505245847997855444661662027/288
585505245847997855444661662581/258
585505245847997855444661663449/226
585505245847997855444661664973/250
585505245847997855444661665203/230
585505245847997855444661665603/226
用时6228.224秒

ysr

585505245847997855445661665603与585505245847997855445661695603之间有21对差大于200的素数对:
585505245847997855445661668077/300
585505245847997855445661669699/380
585505245847997855445661673029/338
585505245847997855445661674053/256
585505245847997855445661674499/296
585505245847997855445661674989/208
585505245847997855445661676351/240
585505245847997855445661679053/216
585505245847997855445661679333/220
585505245847997855445661682987/246
585505245847997855445661683781/224
585505245847997855445661684499/262
585505245847997855445661686557/274
585505245847997855445661687607/226
585505245847997855445661689767/274
585505245847997855445661690417/296
585505245847997855445661691891/232
585505245847997855445661694759/228
585505245847997855445661695031/204
585505245847997855445661695343/312
585505245847997855445661695703/272
用时5094.205秒

ysr

585505245847997855446661695703与585505245847997855446661715703之间有14对差大于200的素数对:
585505245847997855446661696869/282
585505245847997855446661698211/324
585505245847997855446661699021/304
585505245847997855446661700883/282
585505245847997855446661702251/504
585505245847997855446661702981/408
585505245847997855446661703917/334
585505245847997855446661704751/540
585505245847997855446661705237/454
585505245847997855446661706011/540
585505245847997855446661706847/306
585505245847997855446661709199/392
585505245847997855446661714239/320
585505245847997855446661715667/236
用时3069.525秒

ysr

585505245847997855446661715667与585505245847997855446661735667之间有14对差大于200的素数对:
585505245847997855446661717579/216
585505245847997855446661718743/322
585505245847997855446661721961/392
585505245847997855446661722711/212
585505245847997855446661724683/276
585505245847997855446661724977/264
585505245847997855446661725181/204
585505245847997855446661726347/210
585505245847997855446661726947/216
585505245847997855446661728103/504
585505245847997855446661729347/204
585505245847997855446661731813/350
585505245847997855446661732591/210
585505245847997855446661735741/208
用时3099.86秒

ysr

585505245847997855447661735741与585505245847997855447661775741之间有25对差大于200的素数对:
585505245847997855447661736589/228
585505245847997855447661739723/302
585505245847997855447661744971/208
585505245847997855447661747553/222
585505245847997855447661748181/264
585505245847997855447661750557/328
585505245847997855447661750929/250
585505245847997855447661752383/362
585505245847997855447661753301/210
585505245847997855447661754229/490
585505245847997855447661754577/238
585505245847997855447661754781/204
585505245847997855447661755569/230
585505245847997855447661756493/246
585505245847997855447661758011/282
585505245847997855447661758531/210
585505245847997855447661758909/268
585505245847997855447661761579/220
585505245847997855447661762461/232
585505245847997855447661765463/206
585505245847997855447661766813/206
585505245847997855447661770093/256
585505245847997855447661770767/210
585505245847997855447661772603/234
585505245847997855447661772807/204
用时7362.727秒