《数论探秘》电子版

ysr

3000000与3050000之间有3320个素数:
/3000017/3000029/3000047/3000061/3000073/3000077/3000089/3000103/3000131/3000133/3000161/3000181/3000199/3000223/后面还有

3000000~3050000内的素数间隔2/4/6/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/
42/44/46/48/50/52/54/56/58/60/62/64/66/68/70/72/78/80/82/84/
差2=282 差4=285 差6=518 差8的=224 差10的=251 差12=340 差14=156 差16=129 差18=203 差20=106 差22=100 差24=154 差220的=差220的是

ysr

3050000与3250000之间有13441个素数:
/3050009/3050023/3050027/3050029/3050071/3050083/3050087/3050093/3050101/3050107/3050129/3050141/3050153/3050197/3050213/后面还有

3050000~3250000内的素数间隔2/4/6/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/
42/44/46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/80/
82/84/86/88/90/92/94/108/110/122/差2=1232 差4=1167 差6=2051 差8的=830 差10的=1146 差12=1327 差14=710 差16=511 差18=905 差20=443 差22=368 差24=547 差220的=差220的是

ysr

3250000与3500000之间有16573个素数:
/3250021/3250063/3250067/3250073/3250081/3250099/3250109/3250123/3250127/3250129/3250147/3250157/3250189/后面还有

3250000~3500000内的素数间隔2/4/6/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/
42/44/46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/80/
84/86/88/90/92/96/100/102/104/108/110/差2=1465 差4=1443 差6=2483 差8的=1045 差10的=1360 差12=1604 差14=928 差16=652 差18=1133 差20=569 差22=487 差24=676 差220的=差220的是

ysr

3500000与3750000之间有16567个素数:
/3500017/3500023/3500033/3500041/3500059/3500111/3500149/3500177/3500183/3500197/3500201/3500207/3500227/后面还有

3500000~3750000内的素数间隔2/4/6/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/
42/44/46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/80/
82/84/86/88/90/92/96/100/104/108/112/差2=1506 差4=1460 差6=2473 差8的=1001 差10的=1342 差12=1616 差14=905 差16=633 差18=1102 差20=578 差22=458 差24=672 差220的=差220的是

ysr

3750000与4000000之间有16429个素数:
/3750001/3750017/3750031/3750037/3750041/3750067/3750079/3750113/3750119/3750151/3750157/3750167/后面还有

3750000~4000000内的素数间隔2/4/6/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/
42/44/46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/80/
82/84/88/90/92/94/96/98/106/128/132/138/差2=1443 差4=1448 差6=2468 差8的=1017 差10的=1358 差12=1635 差14=859 差16=608 差18=1038 差20=543 差22=499 差24=690 差138的=1差138的是/3826157

ysr

146376311461999846452628180039与146376311461999846452628200039之间有16对差大于200的素数对:
146376311461999846452628181183/276
146376311461999846452628181491/264
146376311461999846452628182797/274
146376311461999846452628183513/314
146376311461999846452628185701/202
146376311461999846452628186913/202
146376311461999846452628187479/210
146376311461999846452628188127/204
146376311461999846452628190323/230
146376311461999846452628191559/248
146376311461999846452628192297/224
146376311461999846452628192787/234
146376311461999846452628193759/258
146376311461999846452628194131/204
146376311461999846452628198577/204
146376311461999846452628199081/312
用时4317.203秒

ysr

1~4000000（就是4百万）之间的素数间隔2/4/6/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/
40/42/44/46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/
80/82/84/86/88/90/92/94/96/98/100/102/104/106/108/110/112/114/118/120/
126/128/132/138/148

ysr

Private Sub Command1_Click()
'排序程序
Dim a, B, q
Dim t As Double
t = Timer
a = Trim(Text3)
s = 1
Do While s <= Len(a)
a1 = Mid(a, s, 1)
If Left(a1, 1) = " " Then
a1 = ""
Else
a1 = a1
End If
s103 = s103 & a1
s = s + 1
Loop
s103 = "/" & s103
s103 = Mid(s103, 1)
Dim i As Integer
Dim ak(), s105, cr(), f
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
   
     n = 0
        For k = 1 To j1
           
             n = n + 1
             ReDim Preserve cr(1 To n)
            m = Val(ak(k))
            f(m) = ""
      Print ak(k)
    Next
      n = 0
      m = f.Keys
      For i = 0 To f.Count - 1
          ReDim Preserve cr(1 To i + 1)
          cr(i + 1) = m(i)
      Next
     For i = 1 To UBound(cr) - 1
        For J = i + 1 To UBound(cr)
            If cr(i) > cr(J) Then
                temp = cr(J)
                cr(J) = cr(i)
                cr(i) = temp  'c数组是排序好的
            End If
        Next J
        
       ' If i Mod 20 = 0 Then
       ' s104 = s104 & temp & "/" & vbCrLf
       ' Else
       ' s104 = s104 & temp & "/"
       ' End If
    Next i
   
      For i = 1 To UBound(cr)
        If i Mod 20 = 0 Then
          s104 = s104 & cr(i) & "/" & vbCrLf
        Else
          s104 = s104 & cr(i) & "/"
        End If
     Next
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
     s106 = Split(s104, "/")
   j2 = UBound(s106)
Text4 = s104


End Sub

ysr

差138的是/3826157，程序速度老是不快啊！差148的是/2010881.

ysr

1~4000000之间的素数间隔到了148缺少10个数分别是：116，122，124，130，134，136，140，142，144，146.