《数论探秘》电子版

ysr

961380175077106319535与961380175077106399535之间有21对差大于200的素数对:
961380175077106319803/266
961380175077106325263/246
961380175077106339567/230
961380175077106341451/254
961380175077106342223/342
961380175077106343569/240
961380175077106344739/230
961380175077106345427/234
961380175077106349261/232
961380175077106362419/202
961380175077106372271/228
961380175077106373411/222
961380175077106374691/242
961380175077106377269/360
961380175077106383853/206
961380175077106384247/280
961380175077106386629/228
961380175077106391263/222
961380175077106394921/204
961380175077106396133/216
961380175077106398851/234
用时5818.008秒

ysr

8652421575693956951551与8652421575693957031551之间有23对差大于200的素数对:
8652421575693956970857/214
8652421575693956971717/206
8652421575693956975329/222
8652421575693956978063/222
8652421575693956980307/240
8652421575693956984281/222
8652421575693956991377/250
8652421575693956991649/272
8652421575693956992007/214
8652421575693956993419/302
8652421575693956993717/238
8652421575693956999957/244
8652421575693957005179/206
8652421575693957006833/252
8652421575693957007619/228
8652421575693957008047/288
8652421575693957015961/278
8652421575693957021343/230
8652421575693957022301/258
8652421575693957025849/216
8652421575693957027797/214
8652421575693957029119/212
8652421575693957030043/240
用时8444.463秒

ysr

9786841678930725841823与9786841678930725921823之间有21对差大于200的素数对:
9786841678930725847121/220
9786841678930725847951/308
9786841678930725849331/224
9786841678930725855881/312
9786841678930725857197/224
9786841678930725863957/210
9786841678930725874909/260
9786841678930725880069/206
9786841678930725883319/292
9786841678930725884611/398
9786841678930725886019/208
9786841678930725890927/220
9786841678930725892117/276
9786841678930725893167/254
9786841678930725898883/234
9786841678930725899419/212
9786841678930725901819/252
9786841678930725907327/260
9786841678930725911483/270
9786841678930725917929/216
9786841678930725921893/232
用时7432.811秒

ysr

9786841678930725921893与9786841678930726001893之间有21对差大于200的素数对:
9786841678930725934807/264
9786841678930725936047/210
9786841678930725936271/222
9786841678930725940291/260
9786841678930725944681/208
9786841678930725946217/220
9786841678930725948289/206
9786841678930725950767/246
9786841678930725952547/216
9786841678930725954541/264
9786841678930725970051/314
9786841678930725975437/204
9786841678930725979369/252
9786841678930725982499/208
9786841678930725982847/298
9786841678930725985501/258
9786841678930725993739/206
9786841678930725994603/206
9786841678930725995627/246
9786841678930725996893/214
9786841678930725997967/370
用时13251.751秒

ysr

9786841678930726215697与9786841678930726295697之间有31对差大于200的素数对:
9786841678930726218629/220
9786841678930726219067/210
9786841678930726226317/206
9786841678930726226851/234
9786841678930726228997/250
9786841678930726229471/214
9786841678930726234631/460
9786841678930726236173/210
9786841678930726237687/338
9786841678930726240979/256
9786841678930726244123/336
9786841678930726245769/218
9786841678930726251461/304
9786841678930726252721/202
9786841678930726255309/216
9786841678930726255561/252
9786841678930726259203/234
9786841678930726260703/246
9786841678930726268611/218
9786841678930726275433/210
9786841678930726277381/240
9786841678930726278131/222
9786841678930726279433/202
9786841678930726281259/246
9786841678930726284037/236
9786841678930726284439/296
9786841678930726285019/226
9786841678930726285321/224
9786841678930726289857/216
9786841678930726292587/228
9786841678930726295023/452
用时-81247.7秒

ysr

9786841678930726295023与9786841678930726375023之间有27对差大于200的素数对:
9786841678930726300199/292
9786841678930726300819/228
9786841678930726304429/270
9786841678930726306769/276
9786841678930726307077/234
9786841678930726308511/378
9786841678930726314913/270
9786841678930726320583/264
9786841678930726323437/306
9786841678930726328929/266
9786841678930726334399/262
9786841678930726336501/254
9786841678930726337099/226
9786841678930726338647/226
9786841678930726340771/210
9786841678930726349761/264
9786841678930726353613/246
9786841678930726353847/234
9786841678930726356461/202
9786841678930726358569/246
9786841678930726359793/204
9786841678930726360061/220
9786841678930726365677/250
9786841678930726366459/296
9786841678930726367101/224
9786841678930726370203/344
9786841678930726371947/280
用时5126.248秒

ysr

9786841678930726371947与9786841678930726451947之间有21对差大于200的素数对:
9786841678930726379087/204
9786841678930726381177/224
9786841678930726388983/300
9786841678930726389313/216
9786841678930726389647/246
9786841678930726394639/322
9786841678930726397137/224
9786841678930726398067/210
9786841678930726399427/220
9786841678930726408619/210
9786841678930726414331/204
9786841678930726414777/224
9786841678930726419263/270
9786841678930726419661/228
9786841678930726420249/212
9786841678930726426091/238
9786841678930726429541/232
9786841678930726439539/228
9786841678930726446613/204
9786841678930726447753/260
9786841678930726448561/210
用时5357.111秒
程序太慢暂停一段时间，改进好了，在说吧

ysr

Private Sub Command1_Click()
Dim a, p, c
a = Val(Text1)
p = 3
c = 1
Do While p <= a And Len(c) < 23
If InStr(fenjieyinzi0(Val(p)), "*") = 0 Then
c = MbC(Trim(c), Val(p))
Else
c = c
End If

p = p + 2
Loop

Text2 = c & "/是" & p - 2 & "内的所有奇素数的积,有" & Len(c) & " 位"

End Sub

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

End Sub

ysr

58644190679703485491635/是61内的所有奇素数的积,有23 位

3929160775540133527939545/是67内的所有奇素数的积,有25 位

278970415063349480483707695/是71内的所有奇素数的积,有27 位

20364840299624512075310661735/是73内的所有奇素数的积,有29 位

32133165458954322436165317614053356655440093295804604057122379340449075183940351576262600371617210115/是251内的所有奇素数的积,有101 位

ysr

2222000000134748075841与2222000000134748085841之间有3对差大于200的素数对:
2222000000134748079319/270
2222000000134748079619/210
2222000000134748084491/248
用时1898.763秒