《数论探秘》电子版

ysr · 发表于 2022-6-11 15:23

146376311462000611635994048879与146376311462000611635994068879之间有13对差大于200的素数对:
146376311462000611635994050271/212
146376311462000611635994050913/230
146376311462000611635994052029/596
146376311462000611635994052237/208
146376311462000611635994053611/274
146376311462000611635994054387/206
146376311462000611635994055137/204
146376311462000611635994057717/258
146376311462000611635994060411/284
146376311462000611635994061021/234
146376311462000611635994064227/218
146376311462000611635994065187/218
146376311462000611635994066663/204
用时4490.568秒

ysr · 发表于 2022-6-11 18:33

146376311462000611635994066663与146376311462000611635994086663之间有12对差大于200的素数对:
146376311462000611635994069747/218
146376311462000611635994072871/202
146376311462000611635994073249/340
146376311462000611635994074493/206
146376311462000611635994076543/202
146376311462000611635994077619/222
146376311462000611635994077913/294
146376311462000611635994079701/302
146376311462000611635994081139/480
146376311462000611635994081733/256
146376311462000611635994084117/260
146376311462000611635994086427/204
用时4596.668秒

ysr · 发表于 2022-6-12 00:07

146376311462000611635994086427与146376311462000611635994106427之间有12对差大于200的素数对:
146376311462000611635994086973/204
146376311462000611635994088411/234
146376311462000611635994092167/286
146376311462000611635994095869/532
146376311462000611635994096349/210
146376311462000611635994097521/218
146376311462000611635994100041/224
146376311462000611635994101919/240
146376311462000611635994102547/318
146376311462000611635994104347/298
146376311462000611635994104679/216
146376311462000611635994106467/240
用时4769.33000000001秒

ysr · 发表于 2022-6-13 11:31

146376311462000611635994125403与146376311462000611635994145403之间有16对差大于200的素数对:
146376311462000611635994126961/244
146376311462000611635994127903/210
146376311462000611635994128287/310
146376311462000611635994128749/210
146376311462000611635994129607/246
146376311462000611635994131787/648
146376311462000611635994132687/290
146376311462000611635994133627/318
146376311462000611635994135589/238
146376311462000611635994137637/240
146376311462000611635994139303/264
146376311462000611635994141307/270
146376311462000611635994141637/330
146376311462000611635994142537/226
146376311462000611635994143403/360
146376311462000611635994145171/214
用时4315.828秒

ysr · 发表于 2022-6-13 21:53

146376311462000611635994145171与146376311462000611635994165171之间有16对差大于200的素数对:
146376311462000611635994146583/252
146376311462000611635994146821/238
146376311462000611635994147289/202
146376311462000611635994149091/210
146376311462000611635994151101/284
146376311462000611635994151513/396
146376311462000611635994152619/252
146376311462000611635994153871/612
146376311462000611635994154477/216
146376311462000611635994157513/390
146376311462000611635994161527/216
146376311462000611635994162583/300
146376311462000611635994163069/202
146376311462000611635994164079/212
146376311462000611635994164649/290
146376311462000611635994165337/234
用时18401.111秒

ysr · 发表于 2022-6-14 05:18

146376311462000611635994185571与146376311462000611635994205571之间有9对差大于200的素数对:
146376311462000611635994189921/338
146376311462000611635994190237/268
146376311462000611635994191493/252
146376311462000611635994192621/290
146376311462000611635994194521/492
146376311462000611635994195031/240
146376311462000611635994199279/216
146376311462000611635994205257/300
146376311462000611635994205783/264
用时4320.562秒

ysr · 发表于 2022-6-14 19:38

本帖最后由 ysr 于 2022-6-15 00:05 编辑

350内有组蔡氏素数:
用时279.459999999999秒

代码错了，已经改正

ysr · 发表于 2022-6-14 19:39

本帖最后由 ysr 于 2022-6-14 12:21 编辑

Private Sub Command1_Click()
Dim a, B, q, m
Dim t As Double
t = Timer

q = Val(Text1)
m = "10000000000000066"
Do While m <= "10000000000000092"

p1 = 31

Do While p1 <= q And p1 <= m

p2 = MPC(Trim(m), Trim(p1))

p3 = MPC1(Trim(p2), 2)

a = fenjieyinzi(Val(p1))
B = fenjieyinzi0(Trim(p2))
c = fenjieyinzi0(Trim(p3))

If InStr(a, "*") = 0 And InStr(B, "*") = 0 And InStr(c, "*") = 0 And InStr(B11, ".") = 0 And InStr(D12, ".") = 0 Then
s = s + 1
Print p1, p2, p3, p4
Text2 = Text2 & CStr(p1) & "," & CStr(p2) & "," & p3 & ",4n+2=" & m & vbCrLf

Else
s = s
End If

p1 = Val(p1 + 2)

Loop
m = MPC1(Trim(m), 4)
Loop
Combo1 = q & "内有" & s & "组蔡氏素数:" & vbCrLf & Text2 & "用时" & Timer - t & "秒"

End Sub

ysr · 发表于 2022-6-14 20:08

本帖最后由 ysr 于 2022-6-14 12:20 编辑

50内有组蔡氏素数:
用时83.2679999999988秒

前面的错了，代码错了，已经修改。

ysr · 发表于 2022-6-15 08:52

900内有4组蔡氏素数:
677,9999999999999389,9999999999999391,4n+2=10000000000000066
433,9999999999999641,9999999999999643,4n+2=10000000000000074
449,9999999999999641,9999999999999643,4n+2=10000000000000090
701,9999999999999389,9999999999999391,4n+2=10000000000000090
用时244.479999999999秒

		自动登录	找回密码
密码			注册