数学中国

标题: 求版主： [打印本页]

作者: 柳林 时间: 2020-10-1 20:57
标题: 求版主：
本人急需素数表，用于素数计算。

本人只有40亿以下的素数表，急需40亿至1000亿之间的素数表。

由于文件太大，可能有100G左右。

可以压缩后，发到我的邮箱。doudou1927@126.com

如果一次不行，也可以分几次发出。

如果用上述方法还有困难，也可以用版主认为更好的办法。

如果版主本人不方便，欢迎看到本贴的，有素数表的网友帮忙。

         谢谢

                  网友柳林

                                    2020年10月1日

作者: ysr 时间: 2020-10-2 08:00
普通电脑可能只能算到20亿，用筛法算的快，占内存，再大的内存会溢出吧？
你的40亿的已经不小了。要制作40亿~1000亿的素数表，怕只能是用超算才能办到吧？
判断40亿~1000亿的素数，要用到大素数的快速快速判断方法和程序。我给你发个程序代码？
我不会快速乘法和除法程序，程序不快，经过优化，100位的需要1秒。
顶起我的大素数的判断方法一文，供参考！

作者: ysr 时间: 2020-10-2 08:17
本帖最后由 ysr 于 2021-8-21 10:58 编辑

代码如下：（优化了一下程序，速度快了一些重发一下代码）

Private Function mbc2(sa As String, sb As String, sd As String) As String 'chengfa jingdu
  Dim ja

  If Trim(sa) = 0 Or Trim(sb) = 0 Then
  mbc2 = 0
  Else

  ja = MbC(Trim(sa), Trim(sb))
  If Val(Len(ja)) > Val(sd) Then
  jb = Left(ja, Val(Len(ja)) - Val(sd))
  mbc2 = jb
  Else
  mbc2 = 0
  End If

  End If

  End Function

Private Function qdhz0(sa As String) As String
  a = sa
  Do While Right(a, 1) = "0"
  a = Left(a, Len(a) - 1)
  Loop
  If a = "" Then
  a = 0
  Else
  a = a
  End If
  qdhz0 = a
  End Function

  Private Function qdqd0(sa As String) As String
  a = sa
  Do While Left(a, 1) = "0"
  a = Mid(a, 2)
  Loop
  If a = "" Then
  a = 0
  Else
  a = a
  End If
  qdqd0 = a
  End Function

  Private Function tjxsd(sa As String, sd As String) As String
  If Val(Len(sa)) > Val(sd) Then
  tjxsd = Left(sa, Val(Len(sa)) - Val(sd)) & "." & Mid(sa, Val(Len(sa)) - Val(sd) + 1)
  Else
  If Val(Len(sa)) = Val(sd) Then
tjxsd = "0." & sa
Else
tjxsd = "0." & String(Val(sd) - Val(Len(sa)), "0") & Trim(sa)
End If
End If

  End Function

  Private Function ydxsd(sa As String, sd As String) As String
  If Len(sa) = 1 And Val(sa) = 0 Then
ydxsd = 0
Else

   sc = InStr(sa, ".")
   If Val(sc) = 0 Then
   ydxsd = sa & String(sd, "0")
   Else
   se = Left(sa, Val(sc) - 1)
   sf = Right(sa, Len(sa) - Val(sc))
   If Val(Len(sf)) >= Val(sd) Then
   ydxsd = se & Mid(sf, 1, sd)
      Else
      ydxsd = se & sf & String(Val(sd) - Len(sf), "0")
      End If
      End If
      End If
      End Function

  Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim X 'shuju changdu
X = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * X, "0") & D1
Dim a() As String
ReDim a(4 To 4 * X + 4)
Dim B() As String
ReDim B(2 To 2 * X)
Dim I, J, js
  For I = 4 To 4 * X + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * X

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
B(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   B(J) = 99
   Else
   B(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(B(J), MbC(Trim(js), 200)), B(J))) = -1

   B(J) = B(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), B(J)), B(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(B(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim X, Y
X = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, B() As String
ReDim a(4 To 4 * X + 4)
ReDim B(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * X)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * X)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * X Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  B(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * X
  Do While a(J) = B(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(B(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(B(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim X ';fen duan changdu
X = Len(D1)



   Dim a() As String
   ReDim a(1 To X)  ';定义数组的储存空间
   For I = 1 To X Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim B() As String
   JW = 0
   ReDim B(1 To X)
   For J = 1 To X Step 1
B(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(B(J)) * Val(D2)
   Next J
   For r = 1 To X
   If JW = 0 Then
      MCC = MCC & B(r)
      Else
      CJ = CJ & B(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strTmp = Mid(MCC, I)
If Len(strTmp) = 0 Then
MCC = "0"
Else
MCC = strTmp
End If

Next

End If

   End If

End Function

Public Function MCC4(D1 As String, D2 As String) As String ';大整数的除法
Dim a, B
  a = Trim(D1): B = Trim(D2): b3 = B: a3 = a
  If Len(B) = 1 Then
  X1 = Mid(B, 1, 1): X2 = 1 / X1 - 0.01
  Else
  X1 = Mid(B, 1, 2): X2 = 10 / X1 - 0.01
  End If
  X = Mid(X2, 1, 4)
  Y = 0: x3 = 0
  sb = Len(a3) + Len(b3) - 1 + 10
  If Len(a3) = Len(b3) And MBJC(Trim(a3), Trim(b3)) = 0 Then
  a1 = 1
  ElseIf MBJC(Mid(a3, 1, Len(b3)), Trim(b3)) = 0 And Val(Len(qdhz0(Trim(a3)))) = Val(Len(b3)) Then
  a1 = 1 & String(Len(a3) - Len(qdhz0(Trim(a3))), "0")
  Else

  a = a & String(10, "0"): B = B & String(10 + Len(a3), "0")
  X = qdqd0(ydxsd(Trim(X), Val(sb)))
  Y1 = 2 & String(Val(sb), "0")
  Do While MBJC(MPC(Trim(X), Trim(x3)), 1) >= 0

  s3 = s3 + 1
  Y = mbc2(Trim(X), MPC(Trim(Y1), mbc2(Trim(B), Trim(X), Val(sb))), Val(sb))
  x3 = X
  X = Trim(Y)
  Loop
  a1 = mbc2(Trim(Y), Trim(a), Val(sb))
  s = Len(a3) - Len(b3)
  a1 = qdqd0(Trim(a1))

  If MBJC(Mid(a3, 1, Len(b3)), Trim(b3)) < 0 Then
  a1 = tjxsd(Trim(a1), Len(a1) - s)
  Else
  a1 = tjxsd(Trim(a1), Len(a1) - s - 1)
  End If
  End If

  If InStr(a1, ".") = 0 Then
  a1 = a1
  Else
  a1 = Left(a1, InStr(a1, ".") - 1)
  End If
  ja = MPC(Trim(a3), MbC(Trim(b3), Trim(a1)))
  Do While MBJC(Trim(ja), Trim(b3)) >= 0
  ja = MPC(Trim(ja), Trim(b3))
  s5 = s5 + 1
  Loop
  a1 = MPC1(Trim(a1), Trim(s5))
  If ja = 0 Then
  MCC4 = a1
  Else
  MCC4 = a1 & "/" & ja
  End If
End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
If Len(D1) > 300 And Len(D2) > 300 Then
MCC1 = MCC4(Trim(D1), Trim(D2))
Else

Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim X, Y ';定义分段长度
X = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, B() As String

  ReDim a(1 To X)
  ReDim B(1 To Y)
  For I = 1 To X
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  B(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(B(1) & B(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = X - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(MCC1, I)
  If Len(strTmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strTmp
End If

End If

  End If
End If
End If
End If
End Function

Public Function MbC(D1 As String, D2 As String) As String
Dim j1&, j2&, e&, d&, E1&, m, n
' 按列法计算C=A*B
m = Trim(D1): n = Trim(D2)
X = Len(m) \ 4: Y = Len(n) \ 4
m = String(4 * X + 4 - Len(m), "0") & m
n = String(4 * Y + 4 - Len(n), "0") & n
X = X + 1: Y = Y + 1
Dim a(), B()
ReDim a(1 To X): ReDim B(1 To Y)
For i1 = 1 To X
a(i1) = Val(Mid(m, i1 * 4 - 3, 4))
Next
For i2 = 1 To Y
B(i2) = Val(Mid(n, i2 * 4 - 3, 4))
Next
ma = X: mb = Y
MC = ma + mb
ReDim c(MC)
E1 = 0
j1 = ma: j2 = ma
For I = MC To 2 Step -1
      If I <= ma Then j2 = I - 1
      e = E1: E1 = 0
      For J = j1 To j2
         e = e + a(J) * B(I - J)
         If e > 2040000000 Then '减少进位次数
            e = e - 2040000000
            E1 = E1 + 204000
         End If
      Next J

      If j1 > 1 Then j1 = j1 - 1
base = 10000
      d = e \ base
      c(I) = e - d * base
      If Len(c(I)) < 4 Then
      c(I) = String(4 - Len(c(I)), "0") & c(I)
      Else
      c(I) = c(I)
      End If
jc = c(I) & jc
      E1 = E1 + d
Next I
jc = d & jc
MbC = qqdl(Trim(jc))
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
  Dim X, Y ';两数长度
If Len(D1) >= Len(D2) Then
  d4 = String(Len(D1) - Len(D2), "0") & D2
  D3 = D1
  Else
  d4 = D2
  D3 = String(Len(D2) - Len(D1), "0") & D1
  End If
  X = Len(D3) \ 8: Y = Len(d4) \ 8
  If Len(D3) > 8 * X Then
  D3 = String(8 * X + 8 - Len(D3), "0") & D3
  d4 = String(8 * Y + 8 - Len(d4), "0") & d4
  X = X + 1: Y = Y + 1
  Else
  X = X: Y = Y
  D3 = D3: d4 = d4
  End If

  Dim a() As String, B1() As String, C1() As String, E1() As String
  ReDim a(1 To X)
  ReDim B1(1 To Y)
  ReDim C1(1 To X)
  ReDim E1(1 To X)
  Dim I, J, C2, CJ, JW
  For J = Y To 1 Step -1 ';D2
  JW = 1 ';yu jie weichuzhi
  B1(J) = Mid(d4, J * 8 - 7, 8) ';每位数
For I = X To 1 Step -1  ';D1
   a(I) = Mid(D3, I * 8 - 7, 8) ';每位数
C1(I) = Val(1 & a(I)) - Val(B1(I)) - Val(1) + Val(JW) ';计算jia
   JW = C1(I) \ 10 ^ 8
   E1(I) = C1(I) Mod 10 ^ 8
   If Len(E1(I)) < 8 Then
   E1(I) = String(8 - Len(E1(I)), "0") & E1(I)
   Else
   E1(I) = E1(I)
   End If

Next
Next
For r = 1 To X
MPC = MPC & E1(r)
If Len(MPC) > Len(D1) Then
MPC = Mid(MPC, Len(MPC) - Len(D1) + 1)
Else
MPC = MPC
End If
For I = 1 To Len(MPC)
   If Not Mid(MPC, I, 1) = "0" Then
      Exit For
   End If
  Next
  strTmp = Mid(MPC, I)
If Len(strTmp) = 0 Then
MPC = "0"
Else
  MPC = strTmp
  End If
Next

  End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
  Dim X, Y, JW '两数长度

If Len(D1) >= Len(D2) Then
  d4 = String(Len(D1) - Len(D2), "0") & D2
  D3 = D1
  Else
  d4 = D2
  D3 = String(Len(D2) - Len(D1), "0") & D1
  End If
  X = Len(D3) \ 8: Y = Len(d4) \ 8
  If 8 * X < Len(D3) Then
  D3 = String(8 * X + 8 - Len(D3), "0") & D3
  d4 = String(8 * Y + 8 - Len(d4), "0") & d4
  X = X + 1: Y = Y + 1
  Else
  X = X: Y = Y
  D3 = D3: d4 = d4
  End If
  Dim a() As String, B1() As String, C1() As String, E1() As String
  ReDim a(1 To X)
  ReDim B1(1 To Y)
  ReDim C1(1 To X)
  ReDim E1(1 To X)
  Dim I, J, C2, CJ
  For J = Y To 1 Step -1 'D2
  JW = 0 '进位清0
  B1(J) = Mid$(d4, J * 8 - 7, 8) '每位数
For I = X To 1 Step -1  'D1
   a(I) = Mid$(D3, I * 8 - 7, 8) '每位数
C1(I) = Val(a(I)) + Val(B1(I)) + Val(JW) '计算jia
If Len(C1(I)) < 8 Then
C1(I) = String(8 - Len(C1(I)), "0") & C1(I)
Else
C1(I) = C1(I)
End If
   JW = Left(C1(I), Len(C1(I)) - 8)
   E1(I) = Right(C1(I), 8)
Next
Next
For r = 1 To X
If JW = 0 Then
MPC1 = MPC1 & E1(r)
Else
jc = jc & E1(r)
MPC1 = JW & jc
End If
Next
MPC1 = qqdl(Trim(MPC1))
  End Function

Private Function qqdl(sa As String) As String


  For I = 1 To Len(sa)
If Not Mid(sa, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(sa, I)
  If Len(strTmp) = 0 Then
  qqdl = "0"
  Else
qqdl = strTmp
End If
End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, B, c, d, r
  a = Trim(sa)
  B = Trim(sb)
  If Len(a) < 10 And Len(B) < 10 Then

  If Val(a) > Val(B) Then
   c = a
   d = B
  Else
   c = B
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(B)) >= 1 Then
  c = a
  d = B
  Else
  c = B
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, B, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  B = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   B = a * s + B
   c = c
   d = c * s + d
   Else
   B = B
   a = a + B * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + B * m) = p Then
  B = B
  a = a + B * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(B + a * m) = p Then
  a = a
  B = B + a * m
  c = c
  d = d + c * m
  Else
  B = B
  a = a + B * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
X = (a + B) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  B = MPC1(MbC(Trim(a), Trim(s)), Trim(B))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  B = B
  a = MPC1(Trim(a), MbC(Trim(B), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(B), Trim(m))) = p Then
  B = B
  a = MPC1(Trim(a), MbC(Trim(B), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(B), MbC(Trim(a), Trim(m))) = p Then
  a = a
  B = MPC1(Trim(B), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  B = B
  a = MPC1(Trim(a), MbC(Trim(B), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim X, a, B
X = sa
B = Int(Sqr(Val(X)) / 2)
If X = 3 Or X = 2 Then
a = True
Else
If Right(X, 1) Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * B + 1 Step 2
If InStr(X / I, ".") = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
ts = Timer
If Len(n) < 11 Then
Text2 = fenjieyinzi(Trim(n))
If InStr(Text2, "*") = 0 Then
Text2 = "这是素数，有" & Len(n) & "位，用时" & Timer - ts & "位"
Else
Text2 = "*这是合数，有" & Len(n) & "位，用时" & Timer - ts & "秒"
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
Text2 = a1 & "*这是合数，有" & Len(n) & "位，用时" & Timer - ts & "秒"
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
Text2 = "这是素数有" & Len(n) & "位，用时" & Timer - ts & "秒"
Else
Text2 = "*这是合数，有" & Len(n) & "位，用时" & Timer - ts & "秒"
End If
End If
End If
End Sub

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

End Sub

作者: ysr 时间: 2020-10-2 08:23
本帖最后由 ysr 于 2021-8-21 13:15 编辑

如下是优化后的可执行程序，双击就可以运行了。例如：输入233333333333333333333333333333333333333333333333333333，结果：这是素数有54位，用时3.046875秒。

作者: ysr 时间: 2020-10-2 10:57
4000000019~4000000050之间的素数有/4000000007这是素数有10位/4000000009这是素数有10位/4000000019这是素数有10位

作者: ysr 时间: 2020-10-2 11:00
本帖最后由 ysr 于 2020-10-2 03:05 编辑

4000000050~4000000200之间的素数有
/4000000063这是素数有10位
/4000000133这是素数有10位
/4000000157这是素数有10位
/4000000163这是素数有10位
/4000000187这是素数有10位

作者: ysr 时间: 2020-10-2 11:12
4000000000~4000000050之间的素数有3个：
/4000000007这是素数有10位
/4000000009这是素数有10位
/4000000019这是素数有10位

作者: ysr 时间: 2020-10-2 11:17
4000000000~4000000500之间的素数有19个：
/4000000007这是素数有10位
/4000000009这是素数有10位
/4000000019这是素数有10位
/4000000063这是素数有10位
/4000000133这是素数有10位
/4000000157这是素数有10位
/4000000163这是素数有10位
/4000000187这是素数有10位
/4000000229这是素数有10位
/4000000231这是素数有10位
/4000000241这是素数有10位
/4000000273这是素数有10位
/4000000351这是素数有10位
/4000000373这是素数有10位
/4000000387这是素数有10位
/4000000427这是素数有10位
/4000000451这是素数有10位
/4000000453这是素数有10位
/4000000483这是素数有10位

作者: ysr 时间: 2020-10-2 11:19
本帖最后由 ysr 于 2021-8-20 14:07 编辑

代码如下：（供参考）

Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
b(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   b(J) = 99
   Else
   b(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(b(J), MbC(Trim(js), 200)), b(J))) = -1

   b(J) = b(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(J)), b(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(b(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, b() As String
ReDim a(4 To 4 * x + 4)
ReDim b(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  b(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While a(J) = b(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(b(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(b(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim a() As String
   ReDim a(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim b() As String
   JW = 0
   ReDim b(1 To x)
   For J = 1 To x Step 1
b(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(b(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & b(r)
      Else
      CJ = CJ & b(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, b() As String

  ReDim a(1 To x)
  ReDim b(1 To Y)
  For I = 1 To x
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  b(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If

End If


  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, Y '两数长度
x = Len(D1): Y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, J, 1) '每位数
For I = x To 1 Step -1 'D1
  C1 = Mid$(D1, I, 1) '每位数
  CJ = C1 * C2 + JW '计算乘积
  c = I + J: r = Y + 1 - J
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + Y)
JW = 0
For I = x + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + a(I, J)
Next
b(I) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For I = 2 To x + Y
MbC = MbC & b(I)
Next
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid(D4, J, 1) ';每位数
For I = x To 1 Step -1  ';D1
a(I) = Mid(d3, I, 1) ';每位数
C1(I) = 10 + a(I) - B1(I) - 1 + JW ';计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
If Not Mid(MPC, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next


End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, Y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
B1(J) = Mid$(D4, J, 1) '每位数
For I = x To 1 Step -1  'D1
a(I) = Mid$(d3, I, 1) '每位数
C1(I) = a(I) + B1(I) + JW '计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next

End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then

  If Val(a) > Val(b) Then
   c = a
   d = b
  Else
   c = b
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   b = a * s + b
   c = c
   d = c * s + d
   Else
   b = b
   a = a + b * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (a + b) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
Text3 = fenjieyinzi(Trim(n))
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
m1 = m1 & "/" & n & "这是素数有" & Len(n) & "位" & vbCrLf
s = s + 1
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

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

作者: ysr 时间: 2020-10-2 11:23
4000000500~4000001000之间的素数有24个：
/4000000531这是素数有10位
/4000000553这是素数有10位
/4000000559这是素数有10位
/4000000561这是素数有10位
/4000000573这是素数有10位
/4000000579这是素数有10位
/4000000591这是素数有10位
/4000000597这是素数有10位
/4000000607这是素数有10位
/4000000619这是素数有10位
/4000000661这是素数有10位
/4000000663这是素数有10位
/4000000687这是素数有10位
/4000000723这是素数有10位
/4000000727这是素数有10位
/4000000733这是素数有10位
/4000000787这是素数有10位
/4000000801这是素数有10位
/4000000813这是素数有10位
/4000000831这是素数有10位
/4000000861这是素数有10位
/4000000913这是素数有10位
/4000000951这是素数有10位
/4000000981这是素数有10位

作者: ysr 时间: 2020-10-2 11:31
4000001000~4000002000之间的素数有43个：
/4000001003这是素数有10位
/4000001039这是素数有10位
/4000001051这是素数有10位
/4000001099这是素数有10位
/4000001101这是素数有10位
/4000001113这是素数有10位
/4000001119这是素数有10位
/4000001191这是素数有10位
/4000001197这是素数有10位
/4000001209这是素数有10位
/4000001221这是素数有10位
/4000001227这是素数有10位
/4000001249这是素数有10位
/4000001261这是素数有10位
/4000001263这是素数有10位
/4000001297这是素数有10位
/4000001311这是素数有10位
/4000001333这是素数有10位
/4000001339这是素数有10位
/4000001351这是素数有10位
/4000001363这是素数有10位
/4000001381这是素数有10位
/4000001419这是素数有10位
/4000001431这是素数有10位
/4000001443这是素数有10位
/4000001477这是素数有10位
/4000001501这是素数有10位
/4000001521这是素数有10位
/4000001567这是素数有10位
/4000001609这是素数有10位
/4000001683这是素数有10位
/4000001699这是素数有10位
/4000001711这是素数有10位
/4000001729这是素数有10位
/4000001839这是素数有10位
/4000001851这是素数有10位
/4000001891这是素数有10位
/4000001897这是素数有10位
/4000001899这是素数有10位
/4000001959这是素数有10位
/4000001963这是素数有10位
/4000001969这是素数有10位
/4000001977这是素数有10位

作者: ysr 时间: 2020-10-2 11:51
4000002000~4000010000之间的素数有361个：
/4000002001这是素数有10位
/4000002091这是素数有10位
/4000002121这是素数有10位
/4000002191这是素数有10位
/4000002221这是素数有10位
/4000002241这是素数有10位
/4000002263这是素数有10位
/4000002313这是素数有10位
/4000002329这是素数有10位
/4000002361这是素数有10位
/4000002367这是素数有10位
/4000002389这是素数有10位
/4000002421这是素数有10位
/4000002431这是素数有10位
/4000002439这是素数有10位
/4000002469这是素数有10位
/4000002491这是素数有10位
/4000002499这是素数有10位
/4000002529这是素数有10位
/4000002551这是素数有10位
/4000002553这是素数有10位
/4000002619这是素数有10位
/4000002647这是素数有10位
/4000002659这是素数有10位
/4000002667这是素数有10位
/4000002673这是素数有10位
/4000002679这是素数有10位
/4000002689这是素数有10位
/4000002751这是素数有10位
/4000002781这是素数有10位
/4000002791这是素数有10位
/4000002817这是素数有10位
/4000002829这是素数有10位
/4000002833这是素数有10位
/4000002859这是素数有10位
/4000002961这是素数有10位
/4000002967这是素数有10位
/4000002997这是素数有10位
/4000003003这是素数有10位
/4000003013这是素数有10位
/4000003027这是素数有10位
/4000003057这是素数有10位
/4000003109这是素数有10位
/4000003153这是素数有10位
/4000003159这是素数有10位
/4000003181这是素数有10位
/4000003199这是素数有10位
/4000003237这是素数有10位
/4000003243这是素数有10位
/4000003261这是素数有10位
/4000003277这是素数有10位
/4000003279这是素数有10位
/4000003283这是素数有10位
/4000003307这是素数有10位
/4000003309这是素数有10位
/4000003327这是素数有10位
/4000003331这是素数有10位
/4000003349这是素数有10位
/4000003361这是素数有10位
/4000003409这是素数有10位
/4000003421这是素数有10位
/4000003459这是素数有10位
/4000003499这是素数有10位
/4000003507这是素数有10位
/4000003529这是素数有10位
/4000003541这是素数有10位
/4000003543这是素数有10位
/4000003549这是素数有10位
/4000003561这是素数有10位
/4000003571这是素数有10位
/4000003591这是素数有10位
/4000003607这是素数有10位
/4000003613这是素数有10位
/4000003643这是素数有10位
/4000003699这是素数有10位
/4000003717这是素数有10位
/4000003753这是素数有10位
/4000003759这是素数有10位
/4000003801这是素数有10位
/4000003849这是素数有10位
/4000003859这是素数有10位
/4000003871这是素数有10位
/4000003913这是素数有10位
/4000003963这是素数有10位
/4000004023这是素数有10位
/4000004027这是素数有10位
/4000004039这是素数有10位
/4000004087这是素数有10位
/4000004111这是素数有10位
/4000004119这是素数有10位
/4000004123这是素数有10位
/4000004153这是素数有10位
/4000004161这是素数有10位
/4000004167这是素数有10位
/4000004201这是素数有10位
/4000004209这是素数有10位
/4000004237这是素数有10位
/4000004269这是素数有10位
/4000004291这是素数有10位
/4000004299这是素数有10位
/4000004311这是素数有10位
/4000004329这是素数有10位
/4000004363这是素数有10位
/4000004377这是素数有10位
/4000004381这是素数有10位
/4000004387这是素数有10位
/4000004401这是素数有10位
/4000004417这是素数有10位
/4000004429这是素数有10位
/4000004441这是素数有10位
/4000004467这是素数有10位
/4000004479这是素数有10位
/4000004483这是素数有10位
/4000004521这是素数有10位
/4000004531这是素数有10位
/4000004537这是素数有10位
/4000004549这是素数有10位
/4000004581这是素数有10位
/4000004599这是素数有10位
/4000004611这是素数有10位
/4000004633这是素数有10位
/4000004663这是素数有10位
/4000004683这是素数有10位
/4000004699这是素数有10位
/4000004747这是素数有10位
/4000004809这是素数有10位
/4000004857这是素数有10位
/4000004881这是素数有10位
/4000004929这是素数有10位
/4000004941这是素数有10位
/4000004947这是素数有10位
/4000005007这是素数有10位
/4000005017这是素数有10位
/4000005019这是素数有10位
/4000005041这是素数有10位
/4000005047这是素数有10位
/4000005091这是素数有10位
/4000005109这是素数有10位
/4000005127这是素数有10位
/4000005179这是素数有10位
/4000005193这是素数有10位
/4000005203这是素数有10位
/4000005239这是素数有10位
/4000005263这是素数有10位
/4000005307这是素数有10位
/4000005319这是素数有10位
/4000005323这是素数有10位
/4000005377这是素数有10位
/4000005431这是素数有10位
/4000005433这是素数有10位
/4000005439这是素数有10位
/4000005461这是素数有10位
/4000005473这是素数有10位
/4000005511这是素数有10位
/4000005523这是素数有10位
/4000005539这是素数有10位
/4000005557这是素数有10位
/4000005563这是素数有10位
/4000005593这是素数有10位
/4000005629这是素数有10位
/4000005649这是素数有10位
/4000005673这是素数有10位
/4000005697这是素数有10位
/4000005719这是素数有10位
/4000005767这是素数有10位
/4000005791这是素数有10位
/4000005827这是素数有10位
/4000005853这是素数有10位
/4000005859这是素数有10位
/4000005869这是素数有10位
/4000005901这是素数有10位
/4000005917这是素数有10位
/4000005929这是素数有10位
/4000005941这是素数有10位
/4000005959这是素数有10位
/4000005991这是素数有10位
/4000006001这是素数有10位
/4000006013这是素数有10位
/4000006039这是素数有10位
/4000006069这是素数有10位
/4000006091这是素数有10位
/4000006093这是素数有10位
/4000006099这是素数有10位
/4000006123这是素数有10位
/4000006139这是素数有10位
/4000006147这是素数有10位
/4000006151这是素数有10位
/4000006159这是素数有10位
/4000006193这是素数有10位
/4000006223这是素数有10位
/4000006237这是素数有10位
/4000006247这是素数有10位
/4000006261这是素数有10位
/4000006277这是素数有10位
/4000006319这是素数有10位
/4000006327这是素数有10位
/4000006333这是素数有10位
/4000006343这是素数有10位
/4000006379这是素数有10位
/4000006403这是素数有10位
/4000006411这是素数有10位
/4000006441这是素数有10位
/4000006519这是素数有10位
/4000006529这是素数有10位
/4000006583这是素数有10位
/4000006607这是素数有10位
/4000006643这是素数有10位
/4000006651这是素数有10位
/4000006691这是素数有10位
/4000006723这是素数有10位
/4000006739这是素数有10位
/4000006757这是素数有10位
/4000006807这是素数有10位
/4000006811这是素数有10位
/4000006817这是素数有10位
/4000006837这是素数有10位
/4000006847这是素数有10位
/4000006861这是素数有10位
/4000006877这是素数有10位
/4000006909这是素数有10位
/4000006919这是素数有10位
/4000006949这是素数有10位
/4000006961这是素数有10位
/4000006979这是素数有10位
/4000007003这是素数有10位
/4000007023这是素数有10位
/4000007047这是素数有10位
/4000007057这是素数有10位
/4000007059这是素数有10位
/4000007069这是素数有10位
/4000007153这是素数有10位
/4000007177这是素数有10位
/4000007203这是素数有10位
/4000007227这是素数有10位
/4000007233这是素数有10位
/4000007293这是素数有10位
/4000007327这是素数有10位
/4000007339这是素数有10位
/4000007353这是素数有10位
/4000007371这是素数有10位
/4000007387这是素数有10位
/4000007399这是素数有10位
/4000007489这是素数有10位
/4000007551这是素数有10位
/4000007567这是素数有10位
/4000007597这是素数有10位
/4000007603这是素数有10位
/4000007611这是素数有10位
/4000007617这是素数有10位
/4000007677这是素数有10位
/4000007689这是素数有10位
/4000007701这是素数有10位
/4000007761这是素数有10位
/4000007773这是素数有10位
/4000007801这是素数有10位
/4000007819这是素数有10位
/4000007821这是素数有10位
/4000007831这是素数有10位
/4000007867这是素数有10位
/4000007887这是素数有10位
/4000007923这是素数有10位
/4000007953这是素数有10位
/4000007981这是素数有10位
/4000008007这是素数有10位
/4000008017这是素数有10位
/4000008031这是素数有10位
/4000008053这是素数有10位
/4000008059这是素数有10位
/4000008091这是素数有10位
/4000008097这是素数有10位
/4000008119这是素数有10位
/4000008137这是素数有10位
/4000008157这是素数有10位
/4000008169这是素数有10位
/4000008197这是素数有10位
/4000008203这是素数有10位
/4000008263这是素数有10位
/4000008277这是素数有10位
/4000008289这是素数有10位
/4000008323这是素数有10位
/4000008329这是素数有10位
/4000008347这是素数有10位
/4000008371这是素数有10位
/4000008413这是素数有10位
/4000008433这是素数有10位
/4000008457这是素数有10位
/4000008491这是素数有10位
/4000008511这是素数有10位
/4000008517这是素数有10位
/4000008553这是素数有10位
/4000008563这是素数有10位
/4000008589这是素数有10位
/4000008629这是素数有10位
/4000008641这是素数有10位
/4000008653这是素数有10位
/4000008671这是素数有10位
/4000008679这是素数有10位
/4000008689这是素数有10位
/4000008697这是素数有10位
/4000008703这是素数有10位
/4000008731这是素数有10位
/4000008767这是素数有10位
/4000008769这是素数有10位
/4000008799这是素数有10位
/4000008809这是素数有10位
/4000008851这是素数有10位
/4000008869这是素数有10位
/4000008871这是素数有10位
/4000008893这是素数有10位
/4000008941这是素数有10位
/4000008967这是素数有10位
/4000008979这是素数有10位
/4000008983这是素数有10位
/4000008997这是素数有10位
/4000009007这是素数有10位
/4000009049这是素数有10位
/4000009087这是素数有10位
/4000009099这是素数有10位
/4000009103这是素数有10位
/4000009109这是素数有10位
/4000009171这是素数有10位
/4000009187这是素数有10位
/4000009199这是素数有10位
/4000009201这是素数有10位
/4000009243这是素数有10位
/4000009249这是素数有10位
/4000009261这是素数有10位
/4000009301这是素数有10位
/4000009331这是素数有10位
/4000009367这是素数有10位
/4000009379这是素数有10位
/4000009381这是素数有10位
/4000009439这是素数有10位
/4000009451这是素数有10位
/4000009459这是素数有10位
/4000009471这是素数有10位
/4000009483这是素数有10位
/4000009493这是素数有10位
/4000009499这是素数有10位
/4000009567这是素数有10位
/4000009571这是素数有10位
/4000009583这是素数有10位
/4000009609这是素数有10位
/4000009613这是素数有10位
/4000009619这是素数有10位
/4000009631这是素数有10位
/4000009633这是素数有10位
/4000009667这是素数有10位
/4000009711这是素数有10位
/4000009721这是素数有10位
/4000009723这是素数有10位
/4000009837这是素数有10位
/4000009847这是素数有10位
/4000009889这是素数有10位
/4000009891这是素数有10位
/4000009921这是素数有10位
/4000009927这是素数有10位
/4000009931这是素数有10位
/4000009957这是素数有10位
/4000009963这是素数有10位
/4000009973这是素数有10位

作者: ysr 时间: 2020-10-2 12:19
4000010000~4000020000之间的素数有431个：
/4000010009这是素数有10位
/4000010041这是素数有10位
/4000010071这是素数有10位
/4000010099这是素数有10位
/4000010123这是素数有10位
/4000010129这是素数有10位
/4000010149这是素数有10位
/4000010173这是素数有10位
/4000010227这是素数有10位
/4000010249这是素数有10位
/4000010263这是素数有10位
/4000010269这是素数有10位
/4000010297这是素数有10位
/4000010299这是素数有10位
/4000010327这是素数有10位
/4000010347这是素数有10位
/4000010407这是素数有10位
/4000010411这是素数有10位
/4000010429这是素数有10位
/4000010453这是素数有10位
/4000010479这是素数有10位
/4000010503这是素数有10位
/4000010533这是素数有10位
/4000010633这是素数有10位
/4000010653这是素数有10位
/4000010657这是素数有10位
/4000010671这是素数有10位
/4000010711这是素数有10位
/4000010719这是素数有10位
/4000010737这是素数有10位
/4000010743这是素数有10位
/4000010747这是素数有10位
/4000010771这是素数有10位
/4000010813这是素数有10位
/4000010831这是素数有10位
/4000010899这是素数有10位
/4000010953这是素数有10位
/4000010981这是素数有10位
/4000011017这是素数有10位
/4000011061这是素数有10位
/4000011079这是素数有10位
/4000011083这是素数有10位
/4000011091这是素数有10位
/4000011109这是素数有10位
/4000011131这是素数有10位
/4000011139这是素数有10位
/4000011143这是素数有10位
/4000011163这是素数有10位
/4000011173这是素数有10位
/4000011181这是素数有10位
/4000011199这是素数有10位
/4000011203这是素数有10位
/4000011227这是素数有10位
/4000011229这是素数有10位
/4000011289这是素数有10位
/4000011299这是素数有10位
/4000011307这是素数有10位
/4000011349这是素数有10位
/4000011401这是素数有10位
/4000011409这是素数有10位
/4000011451这是素数有10位
/4000011473这是素数有10位
/4000011487这是素数有10位
/4000011527这是素数有10位
/4000011529这是素数有10位
/4000011541这是素数有10位
/4000011559这是素数有10位
/4000011571这是素数有10位
/4000011641这是素数有10位
/4000011643这是素数有10位
/4000011647这是素数有10位
/4000011671这是素数有10位
/4000011683这是素数有10位
/4000011737这是素数有10位
/4000011749这是素数有10位
/4000011773这是素数有10位
/4000011781这是素数有10位
/4000011791这是素数有10位
/4000011797这是素数有10位
/4000011839这是素数有10位
/4000011863这是素数有10位
/4000011881这是素数有10位
/4000011887这是素数有10位
/4000011907这是素数有10位
/4000011959这是素数有10位
/4000012019这是素数有10位
/4000012067这是素数有10位
/4000012073这是素数有10位
/4000012103这是素数有10位
/4000012117这是素数有10位
/4000012123这是素数有10位
/4000012189这是素数有10位
/4000012207这是素数有10位
/4000012249这是素数有10位
/4000012273这是素数有10位
/4000012279这是素数有10位
/4000012283这是素数有10位
/4000012309这是素数有10位
/4000012327这是素数有10位
/4000012333这是素数有10位
/4000012381这是素数有10位
/4000012397这是素数有10位
/4000012403这是素数有10位
/4000012417这是素数有10位
/4000012441这是素数有10位
/4000012463这是素数有10位
/4000012469这是素数有10位
/4000012481这是素数有10位
/4000012483这是素数有10位
/4000012561这是素数有10位
/4000012573这是素数有10位
/4000012579这是素数有10位
/4000012619这是素数有10位
/4000012633这是素数有10位
/4000012651这是素数有10位
/4000012657这是素数有10位
/4000012663这是素数有10位
/4000012673这是素数有10位
/4000012699这是素数有10位
/4000012703这是素数有10位
/4000012711这是素数有10位
/4000012721这是素数有10位
/4000012733这是素数有10位
/4000012747这是素数有10位
/4000012769这是素数有10位
/4000012811这是素数有10位
/4000012813这是素数有10位
/4000012817这是素数有10位
/4000012837这是素数有10位
/4000012847这是素数有10位
/4000012859这是素数有10位
/4000012889这是素数有10位
/4000012901这是素数有10位
/4000012927这是素数有10位
/4000012997这是素数有10位
/4000013009这是素数有10位
/4000013041这是素数有10位
/4000013051这是素数有10位
/4000013117这是素数有10位
/4000013159这是素数有10位
/4000013179这是素数有10位
/4000013183这是素数有10位
/4000013189这是素数有10位
/4000013257这是素数有10位
/4000013263这是素数有10位
/4000013291这是素数有10位
/4000013371这是素数有10位
/4000013401这是素数有10位
/4000013411这是素数有10位
/4000013429这是素数有10位
/4000013461这是素数有10位
/4000013473这是素数有10位
/4000013477这是素数有10位
/4000013503这是素数有10位
/4000013527这是素数有10位
/4000013531这是素数有10位
/4000013543这是素数有10位
/4000013579这是素数有10位
/4000013599这是素数有10位
/4000013603这是素数有10位
/4000013609这是素数有10位
/4000013653这是素数有10位
/4000013681这是素数有10位
/4000013713这是素数有10位
/4000013729这是素数有10位
/4000013747这是素数有10位
/4000013783这是素数有10位
/4000013803这是素数有10位
/4000013813这是素数有10位
/4000013821这是素数有10位
/4000013837这是素数有10位
/4000013851这是素数有10位
/4000013879这是素数有10位
/4000013887这是素数有10位
/4000013923这是素数有10位
/4000013959这是素数有10位
/4000013977这是素数有10位
/4000013987这是素数有10位
/4000014023这是素数有10位
/4000014037这是素数有10位
/4000014089这是素数有10位
/4000014113这是素数有10位
/4000014127这是素数有10位
/4000014149这是素数有10位
/4000014163这是素数有10位
/4000014173这是素数有10位
/4000014307这是素数有10位
/4000014329这是素数有10位
/4000014331这是素数有10位
/4000014379这是素数有10位
/4000014409这是素数有10位
/4000014437这是素数有10位
/4000014449这是素数有10位
/4000014451这是素数有10位
/4000014461这是素数有10位
/4000014467这是素数有10位
/4000014509这是素数有10位
/4000014523这是素数有10位
/4000014527这是素数有10位
/4000014533这是素数有10位
/4000014547这是素数有10位
/4000014553这是素数有10位
/4000014559这是素数有10位
/4000014647这是素数有10位
/4000014679这是素数有10位
/4000014713这是素数有10位
/4000014721这是素数有10位
/4000014737这是素数有10位
/4000014743这是素数有10位
/4000014761这是素数有10位
/4000014769这是素数有10位
/4000014803这是素数有10位
/4000014839这是素数有10位
/4000014869这是素数有10位
/4000014937这是素数有10位
/4000014959这是素数有10位
/4000014961这是素数有10位
/4000014973这是素数有10位
/4000015027这是素数有10位
/4000015043这是素数有10位
/4000015057这是素数有10位
/4000015067这是素数有10位
/4000015069这是素数有10位
/4000015081这是素数有10位
/4000015091这是素数有10位
/4000015127这是素数有10位
/4000015139这是素数有10位
/4000015171这是素数有10位
/4000015193这是素数有10位
/4000015213这是素数有10位
/4000015247这是素数有10位
/4000015249这是素数有10位
/4000015259这是素数有10位
/4000015267这是素数有10位
/4000015297这是素数有10位
/4000015301这是素数有10位
/4000015303这是素数有10位
/4000015339这是素数有10位
/4000015367这是素数有10位
/4000015373这是素数有10位
/4000015379这是素数有10位
/4000015421这是素数有10位
/4000015423这是素数有10位
/4000015427这是素数有10位
/4000015469这是素数有10位
/4000015541这是素数有10位
/4000015571这是素数有10位
/4000015577这是素数有10位
/4000015589这是素数有10位
/4000015633这是素数有10位
/4000015661这是素数有10位
/4000015681这是素数有10位
/4000015711这是素数有10位
/4000015727这是素数有10位
/4000015751这是素数有10位
/4000015787这是素数有10位
/4000015829这是素数有10位
/4000015847这是素数有10位
/4000015871这是素数有10位
/4000015909这是素数有10位
/4000015931这是素数有10位
/4000015937这是素数有10位
/4000015949这是素数有10位
/4000015967这是素数有10位
/4000015973这是素数有10位
/4000015991这是素数有10位
/4000016011这是素数有10位
/4000016039这是素数有10位
/4000016099这是素数有10位
/4000016117这是素数有10位
/4000016179这是素数有10位
/4000016191这是素数有10位
/4000016269这是素数有10位
/4000016291这是素数有10位
/4000016311这是素数有10位
/4000016341这是素数有10位
/4000016351这是素数有10位
/4000016359这是素数有10位
/4000016399这是素数有10位
/4000016437这是素数有10位
/4000016441这是素数有10位
/4000016497这是素数有10位
/4000016533这是素数有10位
/4000016557这是素数有10位
/4000016597这是素数有10位
/4000016599这是素数有10位
/4000016663这是素数有10位
/4000016693这是素数有10位
/4000016701这是素数有10位
/4000016723这是素数有10位
/4000016731这是素数有10位
/4000016737这是素数有10位
/4000016771这是素数有10位
/4000016809这是素数有10位
/4000016843这是素数有10位
/4000016873这是素数有10位
/4000016929这是素数有10位
/4000016939这是素数有10位
/4000016941这是素数有10位
/4000016953这是素数有10位
/4000016959这是素数有10位
/4000016983这是素数有10位
/4000017037这是素数有10位
/4000017071这是素数有10位
/4000017103这是素数有10位
/4000017121这是素数有10位
/4000017139这是素数有10位
/4000017143这是素数有10位
/4000017163这是素数有10位
/4000017187这是素数有10位
/4000017221这是素数有10位
/4000017223这是素数有10位
/4000017253这是素数有10位
/4000017271这是素数有10位
/4000017289这是素数有10位
/4000017293这是素数有10位
/4000017347这是素数有10位
/4000017361这是素数有10位
/4000017401这是素数有10位
/4000017419这是素数有10位
/4000017449这是素数有10位
/4000017467这是素数有10位
/4000017479这是素数有10位
/4000017493这是素数有10位
/4000017517这是素数有10位
/4000017547这是素数有10位
/4000017559这是素数有10位
/4000017563这是素数有10位
/4000017569这是素数有10位
/4000017577这是素数有10位
/4000017587这是素数有10位
/4000017611这是素数有10位
/4000017649这是素数有10位
/4000017683这是素数有10位
/4000017689这是素数有10位
/4000017727这是素数有10位
/4000017743这是素数有10位
/4000017751这是素数有10位
/4000017773这是素数有10位
/4000017803这是素数有10位
/4000017811这是素数有10位
/4000017817这是素数有10位
/4000017829这是素数有10位
/4000017877这是素数有10位
/4000017893这是素数有10位
/4000017911这是素数有10位
/4000017949这是素数有10位
/4000017953这是素数有10位
/4000017971这是素数有10位
/4000018013这是素数有10位
/4000018019这是素数有10位
/4000018063这是素数有10位
/4000018069这是素数有10位
/4000018079这是素数有10位
/4000018153这是素数有10位
/4000018171这是素数有10位
/4000018193这是素数有10位
/4000018199这是素数有10位
/4000018229这是素数有10位
/4000018249这是素数有10位
/4000018259这是素数有10位
/4000018273这是素数有10位
/4000018291这是素数有10位
/4000018307这是素数有10位
/4000018313这是素数有10位
/4000018333这是素数有10位
/4000018367这是素数有10位
/4000018387这是素数有10位
/4000018439这是素数有10位
/4000018447这是素数有10位
/4000018471这是素数有10位
/4000018483这是素数有10位
/4000018489这是素数有10位
/4000018501这是素数有10位
/4000018559这是素数有10位
/4000018571这是素数有10位
/4000018609这是素数有10位
/4000018639这是素数有10位
/4000018651这是素数有10位
/4000018669这是素数有10位
/4000018717这是素数有10位
/4000018733这是素数有10位
/4000018769这是素数有10位
/4000018783这是素数有10位
/4000018787这是素数有10位
/4000018843这是素数有10位
/4000018873这是素数有10位
/4000018901这是素数有10位
/4000018943这是素数有10位
/4000018951这是素数有10位
/4000018993这是素数有10位
/4000019017这是素数有10位
/4000019041这是素数有10位
/4000019077这是素数有10位
/4000019113这是素数有10位
/4000019123这是素数有10位
/4000019129这是素数有10位
/4000019161这是素数有10位
/4000019173这是素数有10位
/4000019227这是素数有10位
/4000019239这是素数有10位
/4000019281这是素数有10位
/4000019297这是素数有10位
/4000019351这是素数有10位
/4000019363这是素数有10位
/4000019381这是素数有10位
/4000019407这是素数有10位
/4000019417这是素数有10位
/4000019423这是素数有10位
/4000019521这是素数有10位
/4000019531这是素数有10位
/4000019533这是素数有10位
/4000019557这是素数有10位
/4000019603这是素数有10位
/4000019651这是素数有10位
/4000019663这是素数有10位
/4000019693这是素数有10位
/4000019713这是素数有10位
/4000019731这是素数有10位
/4000019759这是素数有10位
/4000019767这是素数有10位
/4000019801这是素数有10位
/4000019809这是素数有10位
/4000019833这是素数有10位
/4000019839这是素数有10位
/4000019923这是素数有10位
/4000019927这是素数有10位
/4000019941这是素数有10位
/4000019951这是素数有10位
/4000019957这是素数有10位
/4000019987这是素数有10位

作者: ysr 时间: 2020-10-2 12:48
4000020000~4000030000之间的素数有443个：
/4000020007这是素数有10位
/4000020029这是素数有10位
/4000020043这是素数有10位
/4000020103这是素数有10位
/4000020113这是素数有10位
/4000020119这是素数有10位
/4000020127这是素数有10位
/4000020203这是素数有10位
/4000020289这是素数有10位
/4000020317这是素数有10位
/4000020341这是素数有10位
/4000020377这是素数有10位
/4000020407这是素数有10位
/4000020419这是素数有10位
/4000020449这是素数有10位
/4000020461这是素数有10位
/4000020469这是素数有10位
/4000020487这是素数有10位
/4000020503这是素数有10位
/4000020523这是素数有10位
/4000020569这是素数有10位
/4000020571这是素数有10位
/4000020589这是素数有10位
/4000020623这是素数有10位
/4000020637这是素数有10位
/4000020641这是素数有10位
/4000020677这是素数有10位
/4000020707这是素数有10位
/4000020727这是素数有10位
/4000020749这是素数有10位
/4000020751这是素数有10位
/4000020833这是素数有10位
/4000020839这是素数有10位
/4000020841这是素数有10位
/4000020853这是素数有10位
/4000020859这是素数有10位
/4000020881这是素数有10位
/4000020883这是素数有10位
/4000020887这是素数有10位
/4000020889这是素数有10位
/4000020943这是素数有10位
/4000020971这是素数有10位
/4000020991这是素数有10位
/4000021007这是素数有10位
/4000021013这是素数有10位
/4000021019这是素数有10位
/4000021027这是素数有10位
/4000021043这是素数有10位
/4000021061这是素数有10位
/4000021079这是素数有10位
/4000021097这是素数有10位
/4000021111这是素数有10位
/4000021133这是素数有10位
/4000021159这是素数有10位
/4000021169这是素数有10位
/4000021183这是素数有10位
/4000021199这是素数有10位
/4000021261这是素数有10位
/4000021283这是素数有10位
/4000021297这是素数有10位
/4000021313这是素数有10位
/4000021321这是素数有10位
/4000021331这是素数有10位
/4000021367这是素数有10位
/4000021387这是素数有10位
/4000021391这是素数有10位
/4000021393这是素数有10位
/4000021423这是素数有10位
/4000021427这是素数有10位
/4000021453这是素数有10位
/4000021463这是素数有10位
/4000021507这是素数有10位
/4000021513这是素数有10位
/4000021639这是素数有10位
/4000021651这是素数有10位
/4000021673这是素数有10位
/4000021679这是素数有10位
/4000021687这是素数有10位
/4000021699这是素数有10位
/4000021703这是素数有10位
/4000021733这是素数有10位
/4000021757这是素数有10位
/4000021807这是素数有10位
/4000021811这是素数有10位
/4000021819这是素数有10位
/4000021829这是素数有10位
/4000021871这是素数有10位
/4000021891这是素数有10位
/4000021913这是素数有10位
/4000021943这是素数有10位
/4000022009这是素数有10位
/4000022029这是素数有10位
/4000022051这是素数有10位
/4000022057这是素数有10位
/4000022107这是素数有10位
/4000022111这是素数有10位
/4000022179这是素数有10位
/4000022189这是素数有10位
/4000022227这是素数有10位
/4000022297这是素数有10位
/4000022309这是素数有10位
/4000022311这是素数有10位
/4000022317这是素数有10位
/4000022347这是素数有10位
/4000022359这是素数有10位
/4000022387这是素数有10位
/4000022393这是素数有10位
/4000022399这是素数有10位
/4000022401这是素数有10位
/4000022417这是素数有10位
/4000022431这是素数有10位
/4000022447这是素数有10位
/4000022489这是素数有10位
/4000022491这是素数有10位
/4000022501这是素数有10位
/4000022503这是素数有10位
/4000022567这是素数有10位
/4000022573这是素数有10位
/4000022581这是素数有10位
/4000022591这是素数有10位
/4000022629这是素数有10位
/4000022639这是素数有10位
/4000022641这是素数有10位
/4000022651这是素数有10位
/4000022687这是素数有10位
/4000022711这是素数有10位
/4000022743这是素数有10位
/4000022753这是素数有10位
/4000022777这是素数有10位
/4000022857这是素数有10位
/4000022933这是素数有10位
/4000022947这是素数有10位
/4000022951这是素数有10位
/4000022953这是素数有10位
/4000022959这是素数有10位
/4000022981这是素数有10位
/4000023011这是素数有10位
/4000023023这是素数有10位
/4000023077这是素数有10位
/4000023103这是素数有10位
/4000023107这是素数有10位
/4000023119这是素数有10位
/4000023151这是素数有10位
/4000023161这是素数有10位
/4000023197这是素数有10位
/4000023199这是素数有10位
/4000023239这是素数有10位
/4000023289这是素数有10位
/4000023319这是素数有10位
/4000023323这是素数有10位
/4000023337这是素数有10位
/4000023361这是素数有10位
/4000023373这是素数有10位
/4000023397这是素数有10位
/4000023439这是素数有10位
/4000023451这是素数有10位
/4000023457这是素数有10位
/4000023487这是素数有10位
/4000023497这是素数有10位
/4000023557这是素数有10位
/4000023571这是素数有10位
/4000023581这是素数有10位
/4000023611这是素数有10位
/4000023617这是素数有10位
/4000023719这是素数有10位
/4000023761这是素数有10位
/4000023779这是素数有10位
/4000023793这是素数有10位
/4000023809这是素数有10位
/4000023829这是素数有10位
/4000023851这是素数有10位
/4000023893这是素数有10位
/4000023917这是素数有10位
/4000023931这是素数有10位
/4000023941这是素数有10位
/4000023947这是素数有10位
/4000023949这是素数有10位
/4000023991这是素数有10位
/4000024031这是素数有10位
/4000024069这是素数有10位
/4000024073这是素数有10位
/4000024081这是素数有10位
/4000024097这是素数有10位
/4000024103这是素数有10位
/4000024117这是素数有10位
/4000024141这是素数有10位
/4000024183这是素数有10位
/4000024207这是素数有10位
/4000024213这是素数有10位
/4000024219这是素数有10位
/4000024279这是素数有10位
/4000024283这是素数有10位
/4000024289这是素数有10位
/4000024291这是素数有10位
/4000024297这是素数有10位
/4000024331这是素数有10位
/4000024373这是素数有10位
/4000024397这是素数有10位
/4000024409这是素数有10位
/4000024439这是素数有10位
/4000024463这是素数有10位
/4000024481这是素数有10位
/4000024489这是素数有10位
/4000024513这是素数有10位
/4000024529这是素数有10位
/4000024543这是素数有10位
/4000024547这是素数有10位
/4000024559这是素数有10位
/4000024577这是素数有10位
/4000024619这是素数有10位
/4000024621这是素数有10位
/4000024627这是素数有10位
/4000024663这是素数有10位
/4000024667这是素数有10位
/4000024669这是素数有10位
/4000024751这是素数有10位
/4000024759这是素数有10位
/4000024801这是素数有10位
/4000024859这是素数有10位
/4000024867这是素数有10位
/4000024883这是素数有10位
/4000024901这是素数有10位
/4000024927这是素数有10位
/4000024939这是素数有10位
/4000024943这是素数有10位
/4000024961这是素数有10位
/4000024969这是素数有10位
/4000025033这是素数有10位
/4000025137这是素数有10位
/4000025143这是素数有10位
/4000025213这是素数有10位
/4000025221这是素数有10位
/4000025233这是素数有10位
/4000025257这是素数有10位
/4000025273这是素数有10位
/4000025279这是素数有10位
/4000025299这是素数有10位
/4000025327这是素数有10位
/4000025329这是素数有10位
/4000025333这是素数有10位
/4000025347这是素数有10位
/4000025371这是素数有10位
/4000025423这是素数有10位
/4000025441这是素数有10位
/4000025461这是素数有10位
/4000025467这是素数有10位
/4000025527这是素数有10位
/4000025531这是素数有10位
/4000025543这是素数有10位
/4000025551这是素数有10位
/4000025581这是素数有10位
/4000025587这是素数有10位
/4000025621这是素数有10位
/4000025633这是素数有10位
/4000025639这是素数有10位
/4000025671这是素数有10位
/4000025677这是素数有10位
/4000025681这是素数有10位
/4000025707这是素数有10位
/4000025717这是素数有10位
/4000025737这是素数有10位
/4000025753这是素数有10位
/4000025789这是素数有10位
/4000025791这是素数有10位
/4000025797这是素数有10位
/4000025801这是素数有10位
/4000025807这是素数有10位
/4000025831这是素数有10位
/4000025857这是素数有10位
/4000025899这是素数有10位
/4000025929这是素数有10位
/4000025951这是素数有10位
/4000025983这是素数有10位
/4000025987这是素数有10位
/4000025989这是素数有10位
/4000025993这是素数有10位
/4000026013这是素数有10位
/4000026059这是素数有10位
/4000026073这是素数有10位
/4000026113这是素数有10位
/4000026211这是素数有10位
/4000026253这是素数有10位
/4000026257这是素数有10位
/4000026337这是素数有10位
/4000026341这是素数有10位
/4000026353这是素数有10位
/4000026397这是素数有10位
/4000026409这是素数有10位
/4000026419这是素数有10位
/4000026431这是素数有10位
/4000026449这是素数有10位
/4000026469这是素数有10位
/4000026487这是素数有10位
/4000026551这是素数有10位
/4000026559这是素数有10位
/4000026571这是素数有10位
/4000026619这是素数有10位
/4000026631这是素数有10位
/4000026691这是素数有10位
/4000026703这是素数有10位
/4000026799这是素数有10位
/4000026809这是素数有10位
/4000026817这是素数有10位
/4000026827这是素数有10位
/4000026847这是素数有10位
/4000026887这是素数有10位
/4000026929这是素数有10位
/4000026931这是素数有10位
/4000026977这是素数有10位
/4000027001这是素数有10位
/4000027013这是素数有10位
/4000027021这是素数有10位
/4000027027这是素数有10位
/4000027063这是素数有10位
/4000027067这是素数有10位
/4000027091这是素数有10位
/4000027103这是素数有10位
/4000027127这是素数有10位
/4000027133这是素数有10位
/4000027147这是素数有10位
/4000027151这是素数有10位
/4000027177这是素数有10位
/4000027211这是素数有10位
/4000027219这是素数有10位
/4000027243这是素数有10位
/4000027249这是素数有10位
/4000027271这是素数有10位
/4000027277这是素数有10位
/4000027327这是素数有10位
/4000027337这是素数有10位
/4000027349这是素数有10位
/4000027373这是素数有10位
/4000027387这是素数有10位
/4000027397这是素数有10位
/4000027429这是素数有10位
/4000027439这是素数有10位
/4000027457这是素数有10位
/4000027463这是素数有10位
/4000027469这是素数有10位
/4000027511这是素数有10位
/4000027517这是素数有10位
/4000027519这是素数有10位
/4000027541这是素数有10位
/4000027547这是素数有10位
/4000027567这是素数有10位
/4000027613这是素数有10位
/4000027667这是素数有10位
/4000027693这是素数有10位
/4000027697这是素数有10位
/4000027711这是素数有10位
/4000027741这是素数有10位
/4000027747这是素数有10位
/4000027841这是素数有10位
/4000027849这是素数有10位
/4000027859这是素数有10位
/4000027961这是素数有10位
/4000027963这是素数有10位
/4000028017这是素数有10位
/4000028083这是素数有10位
/4000028099这是素数有10位
/4000028113这是素数有10位
/4000028119这是素数有10位
/4000028129这是素数有10位
/4000028147这是素数有10位
/4000028189这是素数有10位
/4000028267这是素数有10位
/4000028281这是素数有10位
/4000028287这是素数有10位
/4000028303这是素数有10位
/4000028321这是素数有10位
/4000028339这是素数有10位
/4000028359这是素数有10位
/4000028407这是素数有10位
/4000028471这是素数有10位
/4000028497这是素数有10位
/4000028533这是素数有10位
/4000028569这是素数有10位
/4000028581这是素数有10位
/4000028621这是素数有10位
/4000028623这是素数有10位
/4000028629这是素数有10位
/4000028633这是素数有10位
/4000028653这是素数有10位
/4000028657这是素数有10位
/4000028663这是素数有10位
/4000028677这是素数有10位
/4000028687这是素数有10位
/4000028717这是素数有10位
/4000028729这是素数有10位
/4000028731这是素数有10位
/4000028737这是素数有10位
/4000028771这是素数有10位
/4000028803这是素数有10位
/4000028869这是素数有10位
/4000028873这是素数有10位
/4000028891这是素数有10位
/4000029001这是素数有10位
/4000029013这是素数有10位
/4000029037这是素数有10位
/4000029097这是素数有10位
/4000029113这是素数有10位
/4000029133这是素数有10位
/4000029157这是素数有10位
/4000029179这是素数有10位
/4000029203这是素数有10位
/4000029227这是素数有10位
/4000029269这是素数有10位
/4000029287这是素数有10位
/4000029289这是素数有10位
/4000029343这是素数有10位
/4000029347这是素数有10位
/4000029367这是素数有10位
/4000029373这是素数有10位
/4000029389这是素数有10位
/4000029391这是素数有10位
/4000029401这是素数有10位
/4000029427这是素数有10位
/4000029437这是素数有10位
/4000029443这是素数有10位
/4000029457这是素数有10位
/4000029461这是素数有10位
/4000029491这是素数有10位
/4000029493这是素数有10位
/4000029529这是素数有10位
/4000029557这是素数有10位
/4000029581这是素数有10位
/4000029589这是素数有10位
/4000029599这是素数有10位
/4000029619这是素数有10位
/4000029629这是素数有10位
/4000029679这是素数有10位
/4000029749这是素数有10位
/4000029763这是素数有10位
/4000029793这是素数有10位
/4000029809这是素数有10位
/4000029821这是素数有10位
/4000029871这是素数有10位
/4000029883这是素数有10位
/4000029911这是素数有10位
/4000029923这是素数有10位
/4000029941这是素数有10位
/4000029961这是素数有10位
/4000029991这是素数有10位

作者: ysr 时间: 2020-10-2 14:40
4000030000~4000040000之间的素数有452个：
/4000030019这是素数有10位
/4000030049这是素数有10位
/4000030087这是素数有10位
/4000030091这是素数有10位
/4000030103这是素数有10位
/4000030129这是素数有10位
/4000030141这是素数有10位
/4000030171这是素数有10位
/4000030187这是素数有10位
/4000030193这是素数有10位
/4000030201这是素数有10位
/4000030207这是素数有10位
/4000030213这是素数有10位
/4000030217这是素数有10位
/4000030219这是素数有10位
/4000030231这是素数有10位
/4000030241这是素数有10位
/4000030247这是素数有10位
/4000030253这是素数有10位
/4000030277这是素数有10位
/4000030301这是素数有10位
/4000030313这是素数有10位
/4000030319这是素数有10位
/4000030337这是素数有10位
/4000030339这是素数有10位
/4000030357这是素数有10位
/4000030393这是素数有10位
/4000030429这是素数有10位
/4000030439这是素数有10位
/4000030451这是素数有10位
/4000030483这是素数有10位
/4000030501这是素数有10位
/4000030549这是素数有10位
/4000030553这是素数有10位
/4000030609这是素数有10位
/4000030637这是素数有10位
/4000030673这是素数有10位
/4000030687这是素数有10位
/4000030721这是素数有10位
/4000030747这是素数有10位
/4000030751这是素数有10位
/4000030757这是素数有10位
/4000030777这是素数有10位
/4000030819这是素数有10位
/4000030823这是素数有10位
/4000030829这是素数有10位
/4000030831这是素数有10位
/4000030883这是素数有10位
/4000030907这是素数有10位
/4000030913这是素数有10位
/4000030919这是素数有10位
/4000030933这是素数有10位
/4000030949这是素数有10位
/4000030981这是素数有10位
/4000031003这是素数有10位
/4000031027这是素数有10位
/4000031093这是素数有10位
/4000031111这是素数有10位
/4000031117这是素数有10位
/4000031143这是素数有10位
/4000031207这是素数有10位
/4000031249这是素数有10位
/4000031257这是素数有10位
/4000031267这是素数有10位
/4000031281这是素数有10位
/4000031293这是素数有10位
/4000031309这是素数有10位
/4000031311这是素数有10位
/4000031323这是素数有10位
/4000031327这是素数有10位
/4000031341这是素数有10位
/4000031351这是素数有10位
/4000031353这是素数有10位
/4000031377这是素数有10位
/4000031383这是素数有10位
/4000031429这是素数有10位
/4000031447这是素数有10位
/4000031459这是素数有10位
/4000031467这是素数有10位
/4000031543这是素数有10位
/4000031549这是素数有10位
/4000031597这是素数有10位
/4000031599这是素数有10位
/4000031603这是素数有10位
/4000031621这是素数有10位
/4000031641这是素数有10位
/4000031653这是素数有10位
/4000031657这是素数有10位
/4000031663这是素数有10位
/4000031669这是素数有10位
/4000031671这是素数有10位
/4000031747这是素数有10位
/4000031767这是素数有10位
/4000031771这是素数有10位
/4000031803这是素数有10位
/4000031807这是素数有10位
/4000031837这是素数有10位
/4000031839这是素数有10位
/4000031843这是素数有10位
/4000031863这是素数有10位
/4000031869这是素数有10位
/4000031879这是素数有10位
/4000031887这是素数有10位
/4000031911这是素数有10位
/4000031951这是素数有10位
/4000031989这是素数有10位
/4000032011这是素数有10位
/4000032041这是素数有10位
/4000032061这是素数有10位
/4000032067这是素数有10位
/4000032137这是素数有10位
/4000032139这是素数有10位
/4000032161这是素数有10位
/4000032167这是素数有10位
/4000032173这是素数有10位
/4000032233这是素数有10位
/4000032251这是素数有10位
/4000032277这是素数有10位
/4000032313这是素数有10位
/4000032347这是素数有10位
/4000032389这是素数有10位
/4000032397这是素数有10位
/4000032433这是素数有10位
/4000032451这是素数有10位
/4000032461这是素数有10位
/4000032481这是素数有10位
/4000032497这是素数有10位
/4000032503这是素数有10位
/4000032541这是素数有10位
/4000032563这是素数有10位
/4000032571这是素数有10位
/4000032601这是素数有10位
/4000032637这是素数有10位
/4000032677这是素数有10位
/4000032683这是素数有10位
/4000032761这是素数有10位
/4000032769这是素数有10位
/4000032823这是素数有10位
/4000032871这是素数有10位
/4000032917这是素数有10位
/4000032919这是素数有10位
/4000032923这是素数有10位
/4000032943这是素数有10位
/4000032973这是素数有10位
/4000032979这是素数有10位
/4000033031这是素数有10位
/4000033061这是素数有10位
/4000033069这是素数有10位
/4000033097这是素数有10位
/4000033123这是素数有10位
/4000033151这是素数有10位
/4000033157这是素数有10位
/4000033171这是素数有10位
/4000033187这是素数有10位
/4000033229这是素数有10位
/4000033237这是素数有10位
/4000033253这是素数有10位
/4000033291这是素数有10位
/4000033369这是素数有10位
/4000033381这是素数有10位
/4000033399这是素数有10位
/4000033439这是素数有10位
/4000033451这是素数有10位
/4000033493这是素数有10位
/4000033507这是素数有10位
/4000033549这是素数有10位
/4000033553这是素数有10位
/4000033567这是素数有10位
/4000033579这是素数有10位
/4000033589这是素数有10位
/4000033601这是素数有10位
/4000033621这是素数有10位
/4000033643这是素数有10位
/4000033699这是素数有10位
/4000033721这是素数有10位
/4000033787这是素数有10位
/4000033789这是素数有10位
/4000033801这是素数有10位
/4000033813这是素数有10位
/4000033831这是素数有10位
/4000033901这是素数有10位
/4000033909这是素数有10位
/4000033963这是素数有10位
/4000033987这是素数有10位
/4000033991这是素数有10位
/4000033993这是素数有10位
/4000034011这是素数有10位
/4000034047这是素数有10位
/4000034063这是素数有10位
/4000034083这是素数有10位
/4000034099这是素数有10位
/4000034111这是素数有10位
/4000034131这是素数有10位
/4000034161这是素数有10位
/4000034219这是素数有10位
/4000034239这是素数有10位
/4000034309这是素数有10位
/4000034317这是素数有10位
/4000034321这是素数有10位
/4000034323这是素数有10位
/4000034327这是素数有10位
/4000034341这是素数有10位
/4000034411这是素数有10位
/4000034447这是素数有10位
/4000034449这是素数有10位
/4000034453这是素数有10位
/4000034459这是素数有10位
/4000034471这是素数有10位
/4000034473这是素数有10位
/4000034477这是素数有10位
/4000034513这是素数有10位
/4000034531这是素数有10位
/4000034611这是素数有10位
/4000034617这是素数有10位
/4000034651这是素数有10位
/4000034657这是素数有10位
/4000034663这是素数有10位
/4000034783这是素数有10位
/4000034791这是素数有10位
/4000034809这是素数有10位
/4000034837这是素数有10位
/4000034879这是素数有10位
/4000034891这是素数有10位
/4000034893这是素数有10位
/4000034911这是素数有10位
/4000034939这是素数有10位
/4000034953这是素数有10位
/4000034999这是素数有10位
/4000035023这是素数有10位
/4000035049这是素数有10位
/4000035079这是素数有10位
/4000035113这是素数有10位
/4000035119这是素数有10位
/4000035131这是素数有10位
/4000035161这是素数有10位
/4000035181这是素数有10位
/4000035187这是素数有10位
/4000035191这是素数有10位
/4000035227这是素数有10位
/4000035229这是素数有10位
/4000035241这是素数有10位
/4000035253这是素数有10位
/4000035293这是素数有10位
/4000035329这是素数有10位
/4000035343这是素数有10位
/4000035353这是素数有10位
/4000035367这是素数有10位
/4000035371这是素数有10位
/4000035379这是素数有10位
/4000035419这是素数有10位
/4000035421这是素数有10位
/4000035461这是素数有10位
/4000035469这是素数有10位
/4000035499这是素数有10位
/4000035527这是素数有10位
/4000035539这是素数有10位
/4000035577这是素数有10位
/4000035581这是素数有10位
/4000035607这是素数有10位
/4000035619这是素数有10位
/4000035631这是素数有10位
/4000035671这是素数有10位
/4000035703这是素数有10位
/4000035709这是素数有10位
/4000035713这是素数有10位
/4000035773这是素数有10位
/4000035779这是素数有10位
/4000035817这是素数有10位
/4000035841这是素数有10位
/4000035883这是素数有10位
/4000035887这是素数有10位
/4000035959这是素数有10位
/4000035967这是素数有10位
/4000035979这是素数有10位
/4000036013这是素数有10位
/4000036129这是素数有10位
/4000036163这是素数有10位
/4000036177这是素数有10位
/4000036217这是素数有10位
/4000036223这是素数有10位
/4000036253这是素数有10位
/4000036259这是素数有10位
/4000036277这是素数有10位
/4000036321这是素数有10位
/4000036333这是素数有10位
/4000036363这是素数有10位
/4000036457这是素数有10位
/4000036459这是素数有10位
/4000036493这是素数有10位
/4000036501这是素数有10位
/4000036519这是素数有10位
/4000036561这是素数有10位
/4000036571这是素数有10位
/4000036619这是素数有10位
/4000036633这是素数有10位
/4000036639这是素数有10位
/4000036669这是素数有10位
/4000036673这是素数有10位
/4000036681这是素数有10位
/4000036717这是素数有10位
/4000036721这是素数有10位
/4000036727这是素数有10位
/4000036741这是素数有10位
/4000036757这是素数有10位
/4000036759这是素数有10位
/4000036841这是素数有10位
/4000036847这是素数有10位
/4000036867这是素数有10位
/4000036889这是素数有10位
/4000036891这是素数有10位
/4000036933这是素数有10位
/4000036969这是素数有10位
/4000036987这是素数有10位
/4000037003这是素数有10位
/4000037017这是素数有10位
/4000037057这是素数有10位
/4000037137这是素数有10位
/4000037141这是素数有10位
/4000037189这是素数有10位
/4000037191这是素数有10位
/4000037207这是素数有10位
/4000037213这是素数有10位
/4000037227这是素数有10位
/4000037231这是素数有10位
/4000037243这是素数有10位
/4000037269这是素数有10位
/4000037297这是素数有10位
/4000037303这是素数有10位
/4000037311这是素数有10位
/4000037317这是素数有10位
/4000037351这是素数有10位
/4000037357这是素数有10位
/4000037381这是素数有10位
/4000037399这是素数有10位
/4000037411这是素数有10位
/4000037443这是素数有10位
/4000037467这是素数有10位
/4000037501这是素数有10位
/4000037513这是素数有10位
/4000037521这是素数有10位
/4000037533这是素数有10位
/4000037579这是素数有10位
/4000037647这是素数有10位
/4000037653这是素数有10位
/4000037659这是素数有10位
/4000037669这是素数有10位
/4000037707这是素数有10位
/4000037753这是素数有10位
/4000037761这是素数有10位
/4000037779这是素数有10位
/4000037813这是素数有10位
/4000037827这是素数有10位
/4000037861这是素数有10位
/4000037879这是素数有10位
/4000037897这是素数有10位
/4000037903这是素数有10位
/4000037929这是素数有10位
/4000037959这是素数有10位
/4000037969这是素数有10位
/4000038041这是素数有10位
/4000038059这是素数有10位
/4000038109这是素数有10位
/4000038113这是素数有10位
/4000038127这是素数有10位
/4000038131这是素数有10位
/4000038191这是素数有10位
/4000038241这是素数有10位
/4000038247这是素数有10位
/4000038253这是素数有10位
/4000038277这是素数有10位
/4000038293这是素数有10位
/4000038323这是素数有10位
/4000038331这是素数有10位
/4000038337这是素数有10位
/4000038347这是素数有10位
/4000038359这是素数有10位
/4000038377这是素数有10位
/4000038379这是素数有10位
/4000038397这是素数有10位
/4000038401这是素数有10位
/4000038437这是素数有10位
/4000038463这是素数有10位
/4000038487这是素数有10位
/4000038499这是素数有10位
/4000038529这是素数有10位
/4000038551这是素数有10位
/4000038563这是素数有10位
/4000038571这是素数有10位
/4000038599这是素数有10位
/4000038617这是素数有10位
/4000038667这是素数有10位
/4000038689这是素数有10位
/4000038709这是素数有10位
/4000038743这是素数有10位
/4000038781这是素数有10位
/4000038787这是素数有10位
/4000038797这是素数有10位
/4000038803这是素数有10位
/4000038839这是素数有10位
/4000038853这是素数有10位
/4000038893这是素数有10位
/4000038961这是素数有10位
/4000039079这是素数有10位
/4000039081这是素数有10位
/4000039091这是素数有10位
/4000039139这是素数有10位
/4000039187这是素数有10位
/4000039189这是素数有10位
/4000039207这是素数有10位
/4000039217这是素数有10位
/4000039231这是素数有10位
/4000039237这是素数有10位
/4000039261这是素数有10位
/4000039297这是素数有10位
/4000039313这是素数有10位
/4000039331这是素数有10位
/4000039333这是素数有10位
/4000039349这是素数有10位
/4000039367这是素数有10位
/4000039369这是素数有10位
/4000039423这是素数有10位
/4000039441这是素数有10位
/4000039447这是素数有10位
/4000039487这是素数有10位
/4000039489这是素数有10位
/4000039507这是素数有10位
/4000039541这是素数有10位
/4000039573这是素数有10位
/4000039583这是素数有10位
/4000039591这是素数有10位
/4000039597这是素数有10位
/4000039601这是素数有10位
/4000039607这是素数有10位
/4000039613这是素数有10位
/4000039639这是素数有10位
/4000039643这是素数有10位
/4000039649这是素数有10位
/4000039721这是素数有10位
/4000039751这是素数有10位
/4000039759这是素数有10位
/4000039781这是素数有10位
/4000039801这是素数有10位
/4000039807这是素数有10位
/4000039811这是素数有10位
/4000039853这是素数有10位
/4000039859这是素数有10位
/4000039873这是素数有10位
/4000039889这是素数有10位
/4000039907这是素数有10位
/4000039913这是素数有10位
/4000039921这是素数有10位
/4000039997这是素数有10位

作者: ysr 时间: 2020-10-2 15:24
4000040000~4000050000之间的素数有480个：
/4000040027这是素数有10位
/4000040029这是素数有10位
/4000040039这是素数有10位
/4000040053这是素数有10位
/4000040059这是素数有10位
/4000040129这是素数有10位
/4000040131这是素数有10位
/4000040167这是素数有10位
/4000040173这是素数有10位
/4000040197这是素数有10位
/4000040201这是素数有10位
/4000040203这是素数有10位
/4000040243这是素数有10位
/4000040273这是素数有10位
/4000040323这是素数有10位
/4000040353这是素数有10位
/4000040371这是素数有10位
/4000040389这是素数有10位
/4000040411这是素数有10位
/4000040419这是素数有10位
/4000040459这是素数有10位
/4000040467这是素数有10位
/4000040501这是素数有10位
/4000040509这是素数有10位
/4000040533这是素数有10位
/4000040537这是素数有10位
/4000040549这是素数有10位
/4000040563这是素数有10位
/4000040567这是素数有10位
/4000040579这是素数有10位
/4000040587这是素数有10位
/4000040617这是素数有10位
/4000040677这是素数有10位
/4000040711这是素数有10位
/4000040713这是素数有10位
/4000040717这是素数有10位
/4000040743这是素数有10位
/4000040749这是素数有10位
/4000040753这是素数有10位
/4000040801这是素数有10位
/4000040809这是素数有10位
/4000040851这是素数有10位
/4000040861这是素数有10位
/4000040867这是素数有10位
/4000040917这是素数有10位
/4000040921这是素数有10位
/4000040951这是素数有10位
/4000040969这是素数有10位
/4000040971这是素数有10位
/4000040977这是素数有10位
/4000040999这是素数有10位
/4000041013这是素数有10位
/4000041041这是素数有10位
/4000041047这是素数有10位
/4000041053这是素数有10位
/4000041077这是素数有10位
/4000041083这是素数有10位
/4000041107这是素数有10位
/4000041119这是素数有10位
/4000041167这是素数有10位
/4000041179这是素数有10位
/4000041181这是素数有10位
/4000041193这是素数有10位
/4000041203这是素数有10位
/4000041209这是素数有10位
/4000041223这是素数有10位
/4000041257这是素数有10位
/4000041289这是素数有10位
/4000041301这是素数有10位
/4000041319这是素数有10位
/4000041341这是素数有10位
/4000041391这是素数有10位
/4000041413这是素数有10位
/4000041431这是素数有10位
/4000041439这是素数有10位
/4000041499这是素数有10位
/4000041509这是素数有10位
/4000041541这是素数有10位
/4000041553这是素数有10位
/4000041559这是素数有10位
/4000041581这是素数有10位
/4000041587这是素数有10位
/4000041593这是素数有10位
/4000041613这是素数有10位
/4000041629这是素数有10位
/4000041641这是素数有10位
/4000041649这是素数有10位
/4000041653这是素数有10位
/4000041701这是素数有10位
/4000041733这是素数有10位
/4000041743这是素数有10位
/4000041751这是素数有10位
/4000041763这是素数有10位
/4000041767这是素数有10位
/4000041853这是素数有10位
/4000041869这是素数有10位
/4000041923这是素数有10位
/4000041953这是素数有10位
/4000041961这是素数有10位
/4000042009这是素数有10位
/4000042027这是素数有10位
/4000042037这是素数有10位
/4000042043这是素数有10位
/4000042049这是素数有10位
/4000042061这是素数有10位
/4000042069这是素数有10位
/4000042093这是素数有10位
/4000042099这是素数有10位
/4000042103这是素数有10位
/4000042117这是素数有10位
/4000042133这是素数有10位
/4000042147这是素数有10位
/4000042177这是素数有10位
/4000042187这是素数有10位
/4000042231这是素数有10位
/4000042237这是素数有10位
/4000042247这是素数有10位
/4000042259这是素数有10位
/4000042271这是素数有10位
/4000042273这是素数有10位
/4000042307这是素数有10位
/4000042367这是素数有10位
/4000042379这是素数有10位
/4000042391这是素数有10位
/4000042399这是素数有10位
/4000042439这是素数有10位
/4000042441这是素数有10位
/4000042463这是素数有10位
/4000042477这是素数有10位
/4000042483这是素数有10位
/4000042513这是素数有10位
/4000042531这是素数有10位
/4000042549这是素数有10位
/4000042573这是素数有10位
/4000042589这是素数有10位
/4000042597这是素数有10位
/4000042603这是素数有10位
/4000042619这是素数有10位
/4000042633这是素数有10位
/4000042637这是素数有10位
/4000042639这是素数有10位
/4000042661这是素数有10位
/4000042667这是素数有10位
/4000042729这是素数有10位
/4000042759这是素数有10位
/4000042873这是素数有10位
/4000042889这是素数有10位
/4000042919这是素数有10位
/4000042939这是素数有10位
/4000042961这是素数有10位
/4000042973这是素数有10位
/4000042997这是素数有10位
/4000043009这是素数有10位
/4000043041这是素数有10位
/4000043059这是素数有10位
/4000043093这是素数有10位
/4000043129这是素数有10位
/4000043141这是素数有10位
/4000043143这是素数有10位
/4000043207这是素数有10位
/4000043231这是素数有10位
/4000043233这是素数有10位
/4000043251这是素数有10位
/4000043273这是素数有10位
/4000043293这是素数有10位
/4000043297这是素数有10位
/4000043329这是素数有10位
/4000043351这是素数有10位
/4000043363这是素数有10位
/4000043371这是素数有10位
/4000043387这是素数有10位
/4000043393这是素数有10位
/4000043461这是素数有10位
/4000043477这是素数有10位
/4000043497这是素数有10位
/4000043513这是素数有10位
/4000043521这是素数有10位
/4000043549这是素数有10位
/4000043557这是素数有10位
/4000043561这是素数有10位
/4000043569这是素数有10位
/4000043623这是素数有10位
/4000043627这是素数有10位
/4000043657这是素数有10位
/4000043659这是素数有10位
/4000043731这是素数有10位
/4000043753这是素数有10位
/4000043759这是素数有10位
/4000043783这是素数有10位
/4000043791这是素数有10位
/4000043807这是素数有10位
/4000043813这是素数有10位
/4000043819这是素数有10位
/4000043843这是素数有10位
/4000043881这是素数有10位
/4000043891这是素数有10位
/4000043897这是素数有10位
/4000043903这是素数有10位
/4000043923这是素数有10位
/4000044077这是素数有10位
/4000044089这是素数有10位
/4000044101这是素数有10位
/4000044109这是素数有10位
/4000044133这是素数有10位
/4000044161这是素数有10位
/4000044187这是素数有10位
/4000044227这是素数有10位
/4000044229这是素数有10位
/4000044253这是素数有10位
/4000044277这是素数有10位
/4000044289这是素数有10位
/4000044313这是素数有10位
/4000044343这是素数有10位
/4000044361这是素数有10位
/4000044401这是素数有10位
/4000044403这是素数有10位
/4000044409这是素数有10位
/4000044457这是素数有10位
/4000044469这是素数有10位
/4000044491这是素数有10位
/4000044493这是素数有10位
/4000044523这是素数有10位
/4000044533这是素数有10位
/4000044547这是素数有10位
/4000044553这是素数有10位
/4000044571这是素数有10位
/4000044577这是素数有10位
/4000044589这是素数有10位
/4000044611这是素数有10位
/4000044623这是素数有10位
/4000044649这是素数有10位
/4000044661这是素数有10位
/4000044667这是素数有10位
/4000044677这是素数有10位
/4000044689这是素数有10位
/4000044691这是素数有10位
/4000044739这是素数有10位
/4000044751这是素数有10位
/4000044761这是素数有10位
/4000044773这是素数有10位
/4000044781这是素数有10位
/4000044799这是素数有10位
/4000044821这是素数有10位
/4000044833这是素数有10位
/4000044847这是素数有10位
/4000044871这是素数有10位
/4000044899这是素数有10位
/4000044941这是素数有10位
/4000044953这是素数有10位
/4000045019这是素数有10位
/4000045037这是素数有10位
/4000045043这是素数有10位
/4000045087这是素数有10位
/4000045123这是素数有10位
/4000045177这是素数有10位
/4000045187这是素数有10位
/4000045193这是素数有10位
/4000045199这是素数有10位
/4000045237这是素数有10位
/4000045241这是素数有10位
/4000045279这是素数有10位
/4000045339这是素数有10位
/4000045349这是素数有10位
/4000045367这是素数有10位
/4000045381这是素数有10位
/4000045411这是素数有10位
/4000045451这是素数有10位
/4000045453这是素数有10位
/4000045501这是素数有10位
/4000045513这是素数有10位
/4000045531这是素数有10位
/4000045559这是素数有10位
/4000045573这是素数有10位
/4000045579这是素数有10位
/4000045589这是素数有10位
/4000045601这是素数有10位
/4000045619这是素数有10位
/4000045663这是素数有10位
/4000045697这是素数有10位
/4000045711这是素数有10位
/4000045729这是素数有10位
/4000045739这是素数有10位
/4000045741这是素数有10位
/4000045771这是素数有10位
/4000045799这是素数有10位
/4000045801这是素数有10位
/4000045817这是素数有10位
/4000045837这是素数有10位
/4000045849这是素数有10位
/4000045853这是素数有10位
/4000045879这是素数有10位
/4000045883这是素数有10位
/4000045901这是素数有10位
/4000045937这是素数有10位
/4000045979这是素数有10位
/4000046027这是素数有10位
/4000046077这是素数有10位
/4000046119这是素数有10位
/4000046123这是素数有10位
/4000046131这是素数有10位
/4000046137这是素数有10位
/4000046159这是素数有10位
/4000046177这是素数有10位
/4000046179这是素数有10位
/4000046201这是素数有10位
/4000046213这是素数有10位
/4000046227这是素数有10位
/4000046257这是素数有10位
/4000046333这是素数有10位
/4000046359这是素数有10位
/4000046363这是素数有10位
/4000046371这是素数有10位
/4000046381这是素数有10位
/4000046411这是素数有10位
/4000046417这是素数有10位
/4000046429这是素数有10位
/4000046443这是素数有10位
/4000046447这是素数有10位
/4000046503这是素数有10位
/4000046537这是素数有10位
/4000046539这是素数有10位
/4000046599这是素数有10位
/4000046621这是素数有10位
/4000046629这是素数有10位
/4000046641这是素数有10位
/4000046657这是素数有10位
/4000046707这是素数有10位
/4000046717这是素数有10位
/4000046731这是素数有10位
/4000046741这是素数有10位
/4000046747这是素数有10位
/4000046767这是素数有10位
/4000046789这是素数有10位
/4000046833这是素数有10位
/4000046837这是素数有10位
/4000046881这是素数有10位
/4000046887这是素数有10位
/4000046917这是素数有10位
/4000046957这是素数有10位
/4000046993这是素数有10位
/4000047049这是素数有10位
/4000047071这是素数有10位
/4000047089这是素数有10位
/4000047101这是素数有10位
/4000047109这是素数有10位
/4000047119这是素数有10位
/4000047133这是素数有10位
/4000047157这是素数有10位
/4000047187这是素数有10位
/4000047197这是素数有10位
/4000047223这是素数有10位
/4000047241这是素数有10位
/4000047253这是素数有10位
/4000047263这是素数有10位
/4000047313这是素数有10位
/4000047379这是素数有10位
/4000047383这是素数有10位
/4000047407这是素数有10位
/4000047431这是素数有10位
/4000047433这是素数有10位
/4000047439这是素数有10位
/4000047463这是素数有10位
/4000047473这是素数有10位
/4000047497这是素数有10位
/4000047529这是素数有10位
/4000047551这是素数有10位
/4000047631这是素数有10位
/4000047677这是素数有10位
/4000047683这是素数有10位
/4000047697这是素数有10位
/4000047757这是素数有10位
/4000047761这是素数有10位
/4000047811这是素数有10位
/4000047817这是素数有10位
/4000047841这是素数有10位
/4000047851这是素数有10位
/4000047859这是素数有10位
/4000047881这是素数有10位
/4000047889这是素数有10位
/4000047899这是素数有10位
/4000047937这是素数有10位
/4000047943这是素数有10位
/4000047991这是素数有10位
/4000048021这是素数有10位
/4000048043这是素数有10位
/4000048069这是素数有10位
/4000048127这是素数有10位
/4000048147这是素数有10位
/4000048259这是素数有10位
/4000048279这是素数有10位
/4000048301这是素数有10位
/4000048331这是素数有10位
/4000048369这是素数有10位
/4000048421这是素数有10位
/4000048433这是素数有10位
/4000048441这是素数有10位
/4000048447这是素数有10位
/4000048457这是素数有10位
/4000048463这是素数有10位
/4000048477这是素数有10位
/4000048499这是素数有10位
/4000048523这是素数有10位
/4000048529这是素数有10位
/4000048531这是素数有10位
/4000048543这是素数有10位
/4000048571这是素数有10位
/4000048579这是素数有10位
/4000048583这是素数有10位
/4000048589这是素数有10位
/4000048597这是素数有10位
/4000048621这是素数有10位
/4000048639这是素数有10位
/4000048681这是素数有10位
/4000048687这是素数有10位
/4000048697这是素数有10位
/4000048721这是素数有10位
/4000048751这是素数有10位
/4000048753这是素数有10位
/4000048763这是素数有10位
/4000048859这是素数有10位
/4000048861这是素数有10位
/4000048883这是素数有10位
/4000048889这是素数有10位
/4000048903这是素数有10位
/4000048931这是素数有10位
/4000048937这是素数有10位
/4000048961这是素数有10位
/4000048993这是素数有10位
/4000048999这是素数有10位
/4000049029这是素数有10位
/4000049057这是素数有10位
/4000049059这是素数有10位
/4000049063这是素数有10位
/4000049101这是素数有10位
/4000049111这是素数有10位
/4000049167这是素数有10位
/4000049171这是素数有10位
/4000049189这是素数有10位
/4000049213这是素数有10位
/4000049219这是素数有10位
/4000049227这是素数有10位
/4000049239这是素数有10位
/4000049281这是素数有10位
/4000049299这是素数有10位
/4000049321这是素数有10位
/4000049341这是素数有10位
/4000049359这是素数有10位
/4000049411这是素数有10位
/4000049419这是素数有10位
/4000049437这是素数有10位
/4000049447这是素数有10位
/4000049453这是素数有10位
/4000049467这是素数有10位
/4000049479这是素数有10位
/4000049497这是素数有10位
/4000049507这是素数有10位
/4000049519这是素数有10位
/4000049579这是素数有10位
/4000049621这是素数有10位
/4000049653这是素数有10位
/4000049657这是素数有10位
/4000049659这是素数有10位
/4000049693这是素数有10位
/4000049699这是素数有10位
/4000049707这是素数有10位
/4000049717这是素数有10位
/4000049723这是素数有10位
/4000049741这是素数有10位
/4000049773这是素数有10位
/4000049791这是素数有10位
/4000049827这是素数有10位
/4000049839这是素数有10位
/4000049849这是素数有10位
/4000049861这是素数有10位
/4000049869这是素数有10位
/4000049903这是素数有10位
/4000049923这是素数有10位
/4000049941这是素数有10位
/4000049951这是素数有10位
/4000049957这是素数有10位

作者: ysr 时间: 2020-10-2 16:23
4000050000~4000100000之间的素数有2233个：
/4000050007这是素数有10位
/4000050059这是素数有10位
/4000050097这是素数有10位
/4000050113这是素数有10位
/4000050133这是素数有10位
/4000050137这是素数有10位
/4000050143这是素数有10位
/4000050151这是素数有10位
/4000050163这是素数有10位
/4000050167这是素数有10位
/4000050181这是素数有10位
/4000050193这是素数有10位
/4000050209这是素数有10位
/4000050227这是素数有10位
/4000050233这是素数有10位
/4000050283这是素数有10位
/4000050289这是素数有10位
/4000050319这是素数有10位
/4000050347这是素数有10位
/4000050349这是素数有10位
/4000050389这是素数有10位
/4000050391这是素数有10位
/4000050407这是素数有10位
/4000050409这是素数有10位
/4000050413这是素数有10位
/4000050421这是素数有10位
/4000050433这是素数有10位
/4000050437这是素数有10位
/4000050511这是素数有10位
/4000050521这是素数有10位
/4000050557这是素数有10位
/4000050577这是素数有10位
/4000050599这是素数有10位
/4000050617这是素数有10位
/4000050631这是素数有10位
/4000050641这是素数有10位
/4000050647这是素数有10位
/4000050653这是素数有10位
/4000050689这是素数有10位
/4000050731这是素数有10位
/4000050779这是素数有10位
/4000050811这是素数有10位
/4000050833这是素数有10位
/4000050839这是素数有10位
/4000050863这是素数有10位
/4000050883这是素数有10位
/4000050913这是素数有10位
/4000050937这是素数有10位
/4000050947这是素数有10位
/4000051001这是素数有10位
/4000051009这是素数有10位
/4000051021这是素数有10位
/4000051051这是素数有10位
/4000051063这是素数有10位
/4000051067这是素数有10位
/4000051213这是素数有10位
/4000051249这是素数有10位
/4000051273这是素数有10位
/4000051277这是素数有10位
/4000051283这是素数有10位
/4000051291这是素数有10位
/4000051337这是素数有10位
/4000051339这是素数有10位
/4000051343这是素数有10位
/4000051373这是素数有10位
/4000051411这是素数有10位
/4000051441这是素数有10位
/4000051469这是素数有10位
/4000051483这是素数有10位
/4000051507这是素数有10位
/4000051543这是素数有10位
/4000051633这是素数有10位
/4000051663这是素数有10位
/4000051681这是素数有10位
/4000051687这是素数有10位
/4000051691这是素数有10位
/4000051721这是素数有10位
/4000051723这是素数有10位
/4000051777这是素数有10位
/4000051819这是素数有10位
/4000051829这是素数有10位
/4000051841这是素数有10位
/4000051843这是素数有10位
/4000051859这是素数有10位
/4000051871这是素数有10位
/4000051879这是素数有10位
/4000051901这是素数有10位
/4000051921这是素数有10位
/4000051927这是素数有10位
/4000051943这是素数有10位
/4000051997这是素数有10位
/4000052053这是素数有10位
/4000052057这是素数有10位
/4000052113这是素数有10位
/4000052131这是素数有10位
/4000052227这是素数有10位
/4000052269这是素数有10位
/4000052279这是素数有10位
/4000052293这是素数有10位
/4000052297这是素数有10位
/4000052299这是素数有10位
/4000052377这是素数有10位
/4000052467这是素数有10位
/4000052473这是素数有10位
/4000052479这是素数有10位
/4000052527这是素数有10位
/4000052531这是素数有10位
/4000052533这是素数有10位
/4000052557这是素数有10位
/4000052591这是素数有10位
/4000052603这是素数有10位
/4000052627这是素数有10位
/4000052687这是素数有10位
/4000052699这是素数有10位
/4000052717这是素数有10位
/4000052743这是素数有10位
/4000052747这是素数有10位
/4000052779这是素数有10位
/4000052807这是素数有10位
/4000052809这是素数有10位
/4000052813这是素数有10位
/4000052831这是素数有10位
/4000052863这是素数有10位
/4000052951这是素数有10位
/4000052993这是素数有10位
/4000052999这是素数有10位
/4000053007这是素数有10位
/4000053037这是素数有10位
/4000053041这是素数有10位
/4000053061这是素数有10位
/4000053067这是素数有10位
/4000053103这是素数有10位
/4000053107这是素数有10位
/4000053133这是素数有10位
/4000053151这是素数有10位
/4000053173这是素数有10位
/4000053203这是素数有10位
/4000053221这是素数有10位
/4000053247这是素数有10位
/4000053251这是素数有10位
/4000053263这是素数有10位
/4000053289这是素数有10位
/4000053293这是素数有10位
/4000053329这是素数有10位
/4000053347这是素数有10位
/4000053367这是素数有10位
/4000053377这是素数有10位
/4000053391这是素数有10位
/4000053397这是素数有10位
/4000053427这是素数有10位
/4000053443这是素数有10位
/4000053481这是素数有10位
/4000053511这是素数有10位
/4000053517这是素数有10位
/4000053523这是素数有10位
/4000053557这是素数有10位
/4000053587这是素数有10位
/4000053619这是素数有10位
/4000053623这是素数有10位
/4000053643这是素数有10位
/4000053697这是素数有10位
/4000053713这是素数有10位
/4000053727这是素数有10位
/4000053773这是素数有10位
/4000053787这是素数有10位
/4000053919这是素数有10位
/4000053923这是素数有10位
/4000053961这是素数有10位
/4000053989这是素数有10位
/4000053991这是素数有10位
/4000054043这是素数有10位
/4000054057这是素数有10位
/4000054061这是素数有10位
/4000054063这是素数有10位
/4000054111这是素数有10位
/4000054139这是素数有10位
/4000054169这是素数有10位
/4000054183这是素数有10位
/4000054237这是素数有10位
/4000054243这是素数有10位
/4000054271这是素数有10位
/4000054277这是素数有10位
/4000054283这是素数有10位
/4000054297这是素数有10位
/4000054309这是素数有10位
/4000054339这是素数有10位
/4000054367这是素数有10位
/4000054369这是素数有10位
/4000054379这是素数有10位
/4000054381这是素数有10位
/4000054397这是素数有10位
/4000054411这是素数有10位
/4000054451这是素数有10位
/4000054463这是素数有10位
/4000054481这是素数有10位
/4000054493这是素数有10位
/4000054507这是素数有10位
/4000054519这是素数有10位
/4000054547这是素数有10位
/4000054573这是素数有10位
/4000054609这是素数有10位
/4000054631这是素数有10位
/4000054657这是素数有10位
/4000054679这是素数有10位
/4000054691这是素数有10位
/4000054693这是素数有10位
/4000054711这是素数有10位
/4000054733这是素数有10位
/4000054757这是素数有10位
/4000054777这是素数有10位
/4000054823这是素数有10位
/4000054841这是素数有10位
/4000054843这是素数有10位
/4000054901这是素数有10位
/4000054907这是素数有10位
/4000054921这是素数有10位
/4000054957这是素数有10位
/4000054973这是素数有10位
/4000054979这是素数有10位
/4000054987这是素数有10位
/4000055027这是素数有10位
/4000055039这是素数有10位
/4000055107这是素数有10位
/4000055131这是素数有10位
/4000055197这是素数有10位
/4000055317这是素数有10位
/4000055321这是素数有10位
/4000055329这是素数有10位
/4000055363这是素数有10位
/4000055387这是素数有10位
/4000055399这是素数有10位
/4000055413这是素数有10位
/4000055417这是素数有10位
/4000055429这是素数有10位
/4000055431这是素数有10位
/4000055441这是素数有10位
/4000055453这是素数有10位
/4000055467这是素数有10位
/4000055471这是素数有10位
/4000055539这是素数有10位
/4000055551这是素数有10位
/4000055569这是素数有10位
/4000055599这是素数有10位
/4000055669这是素数有10位
/4000055671这是素数有10位
/4000055687这是素数有10位
/4000055701这是素数有10位
/4000055711这是素数有10位
/4000055737这是素数有10位
/4000055809这是素数有10位
/4000055827这是素数有10位
/4000055831这是素数有10位
/4000055849这是素数有10位
/4000055861这是素数有10位
/4000055893这是素数有10位
/4000055957这是素数有10位
/4000055989这是素数有10位
/4000055999这是素数有10位
/4000056013这是素数有10位
/4000056019这是素数有10位
/4000056031这是素数有10位
/4000056083这是素数有10位
/4000056091这是素数有10位
/4000056113这是素数有10位
/4000056133这是素数有10位
/4000056161这是素数有10位
/4000056163这是素数有10位
/4000056223这是素数有10位
/4000056253这是素数有10位
/4000056283这是素数有10位
/4000056287这是素数有10位
/4000056299这是素数有10位
/4000056331这是素数有10位
/4000056367这是素数有10位
/4000056371这是素数有10位
/4000056383这是素数有10位
/4000056407这是素数有10位
/4000056427这是素数有10位
/4000056451这是素数有10位
/4000056457这是素数有10位
/4000056469这是素数有10位
/4000056493这是素数有10位
/4000056587这是素数有10位
/4000056607这是素数有10位
/4000056611这是素数有10位
/4000056617这是素数有10位
/4000056647这是素数有10位
/4000056653这是素数有10位
/4000056659这是素数有10位
/4000056733这是素数有10位
/4000056737这是素数有10位
/4000056763这是素数有10位
/4000056817这是素数有10位
/4000056857这是素数有10位
/4000056881这是素数有10位
/4000056899这是素数有10位
/4000056911这是素数有10位
/4000056917这是素数有10位
/4000056919这是素数有10位
/4000056923这是素数有10位
/4000056943这是素数有10位
/4000056959这是素数有10位
/4000056961这是素数有10位
/4000056967这是素数有10位
/4000056989这是素数有10位
/4000057021这是素数有10位
/4000057049这是素数有10位
/4000057051这是素数有10位
/4000057073这是素数有10位
/4000057079这是素数有10位
/4000057081这是素数有10位
/4000057093这是素数有10位
/4000057111这是素数有10位
/4000057123这是素数有10位
/4000057141这是素数有10位
/4000057157这是素数有10位
/4000057163这是素数有10位
/4000057189这是素数有10位
/4000057231这是素数有10位
/4000057277这是素数有10位
/4000057283这是素数有10位
/4000057301这是素数有10位
/4000057333这是素数有10位
/4000057337这是素数有10位
/4000057343这是素数有10位
/4000057357这是素数有10位
/4000057361这是素数有10位
/4000057423这是素数有10位
/4000057433这是素数有10位
/4000057447这是素数有10位
/4000057463这是素数有10位
/4000057471这是素数有10位
/4000057487这是素数有10位
/4000057541这是素数有10位
/4000057547这是素数有10位
/4000057561这是素数有10位
/4000057577这是素数有10位
/4000057603这是素数有10位
/4000057613这是素数有10位
/4000057657这是素数有10位
/4000057661这是素数有10位
/4000057697这是素数有10位
/4000057709这是素数有10位
/4000057769这是素数有10位
/4000057771这是素数有10位
/4000057781这是素数有10位
/4000057829这是素数有10位
/4000057837这是素数有10位
/4000057889这是素数有10位
/4000057921这是素数有10位
/4000057931这是素数有10位
/4000057969这是素数有10位
/4000058021这是素数有10位
/4000058039这是素数有10位
/4000058071这是素数有10位
/4000058107这是素数有10位
/4000058119这是素数有10位
/4000058143这是素数有10位
/4000058159这是素数有10位
/4000058171这是素数有10位
/4000058177这是素数有10位
/4000058191这是素数有10位
/4000058207这是素数有10位
/4000058269这是素数有10位
/4000058297这是素数有10位
/4000058303这是素数有10位
/4000058389这是素数有10位
/4000058393这是素数有10位
/4000058399这是素数有10位
/4000058497这是素数有10位
/4000058507这是素数有10位
/4000058519这是素数有10位
/4000058597这是素数有10位
/4000058599这是素数有10位
/4000058611这是素数有10位
/4000058627这是素数有10位
/4000058651这是素数有10位
/4000058659这是素数有10位
/4000058677这是素数有10位
/4000058719这是素数有10位
/4000058747这是素数有10位
/4000058753这是素数有10位
/4000058761这是素数有10位
/4000058773这是素数有10位
/4000058779这是素数有10位
/4000058807这是素数有10位
/4000058819这是素数有10位
/4000058831这是素数有10位
/4000058837这是素数有10位
/4000058873这是素数有10位
/4000058879这是素数有10位
/4000058891这是素数有10位
/4000058897这是素数有10位
/4000058899这是素数有10位
/4000058921这是素数有10位
/4000058941这是素数有10位
/4000058969这是素数有10位
/4000058971这是素数有10位
/4000059071这是素数有10位
/4000059073这是素数有10位
/4000059083这是素数有10位
/4000059101这是素数有10位
/4000059109这是素数有10位
/4000059139这是素数有10位
/4000059143这是素数有10位
/4000059181这是素数有10位
/4000059187这是素数有10位
/4000059199这是素数有10位
/4000059253这是素数有10位
/4000059269这是素数有10位
/4000059293这是素数有10位
/4000059311这是素数有10位
/4000059337这是素数有10位
/4000059359这是素数有10位
/4000059373这是素数有10位
/4000059397这是素数有10位
/4000059443这是素数有10位
/4000059451这是素数有10位
/4000059551这是素数有10位
/4000059571这是素数有10位
/4000059577这是素数有10位
/4000059593这是素数有10位
/4000059599这是素数有10位
/4000059617这是素数有10位
/4000059631这是素数有10位
/4000059641这是素数有10位
/4000059643这是素数有10位
/4000059647这是素数有10位
/4000059653这是素数有10位
/4000059667这是素数有10位

作者: ysr 时间: 2020-10-2 16:25
/4000059703这是素数有10位
/4000059709这是素数有10位
/4000059769这是素数有10位
/4000059781这是素数有10位
/4000059787这是素数有10位
/4000059793这是素数有10位
/4000059923这是素数有10位
/4000059961这是素数有10位
/4000059967这是素数有10位
/4000059977这是素数有10位
/4000060003这是素数有10位
/4000060007这是素数有10位
/4000060021这是素数有10位
/4000060027这是素数有10位
/4000060061这是素数有10位
/4000060069这是素数有10位
/4000060087这是素数有10位
/4000060117这是素数有10位
/4000060147这是素数有10位
/4000060153这是素数有10位
/4000060171这是素数有10位
/4000060193这是素数有10位
/4000060223这是素数有10位
/4000060243这是素数有10位
/4000060301这是素数有10位
/4000060321这是素数有10位
/4000060333这是素数有10位
/4000060357这是素数有10位
/4000060381这是素数有10位
/4000060403这是素数有10位
/4000060469这是素数有10位
/4000060499这是素数有10位
/4000060511这是素数有10位
/4000060549这是素数有10位
/4000060591这是素数有10位
/4000060607这是素数有10位
/4000060609这是素数有10位
/4000060627这是素数有10位
/4000060667这是素数有10位
/4000060739这是素数有10位
/4000060777这是素数有10位
/4000060793这是素数有10位
/4000060817这是素数有10位
/4000060837这是素数有10位
/4000060843这是素数有10位
/4000060871这是素数有10位
/4000060903这是素数有10位
/4000060907这是素数有10位
/4000060919这是素数有10位
/4000060927这是素数有10位
/4000060931这是素数有10位
/4000060949这是素数有10位
/4000060979这是素数有10位
/4000060993这是素数有10位
/4000061011这是素数有10位
/4000061017这是素数有10位
/4000061029这是素数有10位
/4000061059这是素数有10位
/4000061113这是素数有10位
/4000061141这是素数有10位
/4000061159这是素数有10位
/4000061167这是素数有10位
/4000061171这是素数有10位
/4000061179这是素数有10位
/4000061201这是素数有10位
/4000061213这是素数有10位
/4000061281这是素数有10位
/4000061327这是素数有10位
/4000061333这是素数有10位
/4000061339这是素数有10位
/4000061363这是素数有10位
/4000061411这是素数有10位
/4000061419这是素数有10位
/4000061441这是素数有10位
/4000061449这是素数有10位
/4000061509这是素数有10位
/4000061521这是素数有10位
/4000061531这是素数有10位
/4000061567这是素数有10位
/4000061581这是素数有10位
/4000061591这是素数有10位
/4000061623这是素数有10位
/4000061693这是素数有10位
/4000061707这是素数有10位
/4000061711这是素数有10位
/4000061729这是素数有10位
/4000061731这是素数有10位
/4000061743这是素数有10位
/4000061771这是素数有10位
/4000061777这是素数有10位
/4000061789这是素数有10位
/4000061827这是素数有10位
/4000061893这是素数有10位
/4000061909这是素数有10位
/4000061917这是素数有10位
/4000061921这是素数有10位
/4000061927这是素数有10位
/4000061953这是素数有10位
/4000061981这是素数有10位
/4000061987这是素数有10位
/4000062019这是素数有10位
/4000062037这是素数有10位
/4000062061这是素数有10位
/4000062067这是素数有10位
/4000062097这是素数有10位
/4000062103这是素数有10位
/4000062137这是素数有10位
/4000062139这是素数有10位
/4000062149这是素数有10位
/4000062151这是素数有10位
/4000062169这是素数有10位
/4000062179这是素数有10位
/4000062197这是素数有10位
/4000062239这是素数有10位
/4000062259这是素数有10位
/4000062263这是素数有10位
/4000062293这是素数有10位
/4000062331这是素数有10位
/4000062359这是素数有10位
/4000062361这是素数有10位
/4000062383这是素数有10位
/4000062389这是素数有10位
/4000062403这是素数有10位
/4000062421这是素数有10位
/4000062449这是素数有10位
/4000062461这是素数有10位
/4000062467这是素数有10位
/4000062499这是素数有10位
/4000062509这是素数有10位
/4000062523这是素数有10位
/4000062529这是素数有10位
/4000062557这是素数有10位
/4000062559这是素数有10位
/4000062593这是素数有10位
/4000062607这是素数有10位
/4000062611这是素数有10位
/4000062613这是素数有10位
/4000062629这是素数有10位
/4000062697这是素数有10位
/4000062721这是素数有10位
/4000062727这是素数有10位
/4000062749这是素数有10位
/4000062751这是素数有10位
/4000062769这是素数有10位
/4000062827这是素数有10位
/4000062839这是素数有10位
/4000062851这是素数有10位
/4000062881这是素数有10位
/4000062953这是素数有10位
/4000062977这是素数有10位
/4000063019这是素数有10位
/4000063031这是素数有10位
/4000063049这是素数有10位
/4000063051这是素数有10位
/4000063057这是素数有10位
/4000063099这是素数有10位
/4000063121这是素数有10位
/4000063139这是素数有10位
/4000063153这是素数有10位
/4000063219这是素数有10位
/4000063231这是素数有10位
/4000063237这是素数有10位
/4000063241这是素数有10位
/4000063253这是素数有10位
/4000063321这是素数有10位
/4000063337这是素数有10位
/4000063343这是素数有10位
/4000063363这是素数有10位
/4000063367这是素数有10位
/4000063373这是素数有10位
/4000063421这是素数有10位
/4000063493这是素数有10位
/4000063499这是素数有10位
/4000063511这是素数有10位
/4000063553这是素数有10位
/4000063567这是素数有10位
/4000063577这是素数有10位
/4000063589这是素数有10位
/4000063601这是素数有10位
/4000063631这是素数有10位
/4000063633这是素数有10位
/4000063679这是素数有10位
/4000063729这是素数有10位
/4000063789这是素数有10位
/4000063799这是素数有10位
/4000063819这是素数有10位
/4000063831这是素数有10位
/4000063843这是素数有10位
/4000063867这是素数有10位
/4000063871这是素数有10位
/4000063933这是素数有10位
/4000063937这是素数有10位
/4000063967这是素数有10位
/4000063979这是素数有10位
/4000063987这是素数有10位
/4000063997这是素数有10位
/4000064023这是素数有10位
/4000064039这是素数有10位
/4000064051这是素数有10位
/4000064059这是素数有10位
/4000064063这是素数有10位
/4000064077这是素数有10位
/4000064111这是素数有10位
/4000064143这是素数有10位
/4000064179这是素数有10位
/4000064219这是素数有10位
/4000064227这是素数有10位
/4000064239这是素数有10位
/4000064267这是素数有10位
/4000064291这是素数有10位
/4000064347这是素数有10位
/4000064363这是素数有10位
/4000064371这是素数有10位
/4000064377这是素数有10位
/4000064417这是素数有10位
/4000064437这是素数有10位
/4000064441这是素数有10位
/4000064449这是素数有10位
/4000064473这是素数有10位
/4000064489这是素数有10位
/4000064531这是素数有10位
/4000064533这是素数有10位
/4000064587这是素数有10位
/4000064597这是素数有10位
/4000064603这是素数有10位
/4000064609这是素数有10位
/4000064659这是素数有10位
/4000064671这是素数有10位
/4000064687这是素数有10位
/4000064689这是素数有10位
/4000064693这是素数有10位
/4000064777这是素数有10位
/4000064791这是素数有10位
/4000064833这是素数有10位
/4000064839这是素数有10位
/4000064867这是素数有10位
/4000064909这是素数有10位
/4000064921这是素数有10位
/4000064923这是素数有10位
/4000064933这是素数有10位
/4000064947这是素数有10位
/4000064969这是素数有10位
/4000064977这是素数有10位
/4000065023这是素数有10位
/4000065029这是素数有10位
/4000065053这是素数有10位
/4000065061这是素数有10位
/4000065071这是素数有10位
/4000065109这是素数有10位
/4000065137这是素数有10位
/4000065163这是素数有10位
/4000065169这是素数有10位
/4000065197这是素数有10位
/4000065211这是素数有10位
/4000065233这是素数有10位
/4000065241这是素数有10位
/4000065259这是素数有10位
/4000065281这是素数有10位
/4000065283这是素数有10位
/4000065317这是素数有10位
/4000065319这是素数有10位
/4000065359这是素数有10位
/4000065373这是素数有10位
/4000065389这是素数有10位
/4000065409这是素数有10位
/4000065427这是素数有10位
/4000065467这是素数有10位
/4000065469这是素数有10位
/4000065491这是素数有10位
/4000065529这是素数有10位
/4000065547这是素数有10位
/4000065551这是素数有10位
/4000065599这是素数有10位
/4000065623这是素数有10位
/4000065653这是素数有10位
/4000065673这是素数有10位
/4000065679这是素数有10位
/4000065709这是素数有10位
/4000065757这是素数有10位
/4000065761这是素数有10位
/4000065781这是素数有10位
/4000065829这是素数有10位
/4000065833这是素数有10位
/4000065859这是素数有10位
/4000065917这是素数有10位
/4000065931这是素数有10位
/4000065941这是素数有10位
/4000066003这是素数有10位
/4000066073这是素数有10位
/4000066087这是素数有10位
/4000066111这是素数有10位
/4000066117这是素数有10位
/4000066123这是素数有10位
/4000066127这是素数有10位
/4000066141这是素数有10位
/4000066157这是素数有10位
/4000066163这是素数有10位
/4000066201这是素数有10位
/4000066207这是素数有10位
/4000066223这是素数有10位
/4000066241这是素数有10位
/4000066249这是素数有10位
/4000066261这是素数有10位
/4000066319这是素数有10位
/4000066351这是素数有10位
/4000066379这是素数有10位
/4000066387这是素数有10位
/4000066397这是素数有10位
/4000066423这是素数有10位
/4000066429这是素数有10位
/4000066439这是素数有10位
/4000066453这是素数有10位
/4000066507这是素数有10位
/4000066531这是素数有10位
/4000066537这是素数有10位
/4000066589这是素数有10位
/4000066619这是素数有10位
/4000066649这是素数有10位
/4000066661这是素数有10位
/4000066699这是素数有10位
/4000066709这是素数有10位
/4000066813这是素数有10位
/4000066817这是素数有10位
/4000066879这是素数有10位
/4000066883这是素数有10位
/4000066907这是素数有10位
/4000066909这是素数有10位
/4000066913这是素数有10位
/4000066951这是素数有10位
/4000066957这是素数有10位
/4000066981这是素数有10位
/4000067021这是素数有10位
/4000067033这是素数有10位
/4000067041这是素数有10位
/4000067059这是素数有10位
/4000067069这是素数有10位
/4000067089这是素数有10位
/4000067111这是素数有10位
/4000067153这是素数有10位
/4000067167这是素数有10位
/4000067189这是素数有10位
/4000067213这是素数有10位
/4000067219这是素数有10位
/4000067221这是素数有10位
/4000067243这是素数有10位
/4000067249这是素数有10位
/4000067263这是素数有10位
/4000067317这是素数有10位
/4000067341这是素数有10位
/4000067419这是素数有10位
/4000067429这是素数有10位
/4000067443这是素数有10位
/4000067459这是素数有10位
/4000067537这是素数有10位
/4000067573这是素数有10位

作者: ysr 时间: 2020-10-2 16:26
/4000067597这是素数有10位
/4000067623这是素数有10位
/4000067653这是素数有10位
/4000067779这是素数有10位
/4000067783这是素数有10位
/4000067791这是素数有10位
/4000067801这是素数有10位
/4000067803这是素数有10位
/4000067821这是素数有10位
/4000067837这是素数有10位
/4000067849这是素数有10位
/4000067867这是素数有10位
/4000067873这是素数有10位
/4000067917这是素数有10位
/4000067941这是素数有10位
/4000067947这是素数有10位
/4000067971这是素数有10位
/4000068031这是素数有10位
/4000068041这是素数有10位
/4000068047这是素数有10位
/4000068097这是素数有10位
/4000068131这是素数有10位
/4000068133这是素数有10位
/4000068143这是素数有10位
/4000068173这是素数有10位
/4000068203这是素数有10位
/4000068209这是素数有10位
/4000068211这是素数有10位
/4000068221这是素数有10位
/4000068239这是素数有10位
/4000068251这是素数有10位
/4000068287这是素数有10位
/4000068307这是素数有10位
/4000068313这是素数有10位
/4000068349这是素数有10位
/4000068379这是素数有10位
/4000068427这是素数有10位
/4000068481这是素数有10位
/4000068511这是素数有10位
/4000068517这是素数有10位
/4000068547这是素数有10位
/4000068559这是素数有10位
/4000068563这是素数有10位
/4000068577这是素数有10位
/4000068617这是素数有10位
/4000068623这是素数有10位
/4000068641这是素数有10位
/4000068661这是素数有10位
/4000068701这是素数有10位
/4000068707这是素数有10位
/4000068719这是素数有10位
/4000068731这是素数有10位
/4000068733这是素数有10位
/4000068739这是素数有10位
/4000068749这是素数有10位
/4000068767这是素数有10位
/4000068817这是素数有10位
/4000068833这是素数有10位
/4000068881这是素数有10位
/4000068893这是素数有10位
/4000068899这是素数有10位
/4000068913这是素数有10位
/4000068953这是素数有10位
/4000068991这是素数有10位
/4000069057这是素数有10位
/4000069103这是素数有10位
/4000069123这是素数有10位
/4000069147这是素数有10位
/4000069153这是素数有10位
/4000069163这是素数有10位
/4000069181这是素数有10位
/4000069187这是素数有10位
/4000069211这是素数有10位
/4000069231这是素数有10位
/4000069277这是素数有10位
/4000069313这是素数有10位
/4000069351这是素数有10位
/4000069363这是素数有10位
/4000069369这是素数有10位
/4000069387这是素数有10位
/4000069421这是素数有10位
/4000069459这是素数有10位
/4000069481这是素数有10位
/4000069483这是素数有10位
/4000069537这是素数有10位
/4000069589这是素数有10位
/4000069651这是素数有10位
/4000069663这是素数有10位
/4000069699这是素数有10位
/4000069709这是素数有10位
/4000069721这是素数有10位
/4000069729这是素数有10位
/4000069739这是素数有10位
/4000069811这是素数有10位
/4000069819这是素数有10位
/4000069873这是素数有10位
/4000069877这是素数有10位
/4000069897这是素数有10位
/4000069933这是素数有10位
/4000069939这是素数有10位
/4000069949这是素数有10位
/4000069991这是素数有10位
/4000069999这是素数有10位
/4000070017这是素数有10位
/4000070033这是素数有10位
/4000070077这是素数有10位
/4000070099这是素数有10位
/4000070101这是素数有10位
/4000070117这是素数有10位
/4000070147这是素数有10位
/4000070161这是素数有10位
/4000070177这是素数有10位
/4000070237这是素数有10位
/4000070251这是素数有10位
/4000070309这是素数有10位
/4000070341这是素数有10位
/4000070351这是素数有10位
/4000070401这是素数有10位
/4000070423这是素数有10位
/4000070441这是素数有10位
/4000070467这是素数有10位
/4000070521这是素数有10位
/4000070527这是素数有10位
/4000070531这是素数有10位
/4000070533这是素数有10位
/4000070563这是素数有10位
/4000070587这是素数有10位
/4000070593这是素数有10位
/4000070609这是素数有10位
/4000070617这是素数有10位
/4000070621这是素数有10位
/4000070651这是素数有10位
/4000070653这是素数有10位
/4000070677这是素数有10位
/4000070699这是素数有10位
/4000070719这是素数有10位
/4000070729这是素数有10位
/4000070747这是素数有10位
/4000070797这是素数有10位
/4000070801这是素数有10位
/4000070821这是素数有10位
/4000070857这是素数有10位
/4000070869这是素数有10位
/4000070909这是素数有10位
/4000070933这是素数有10位
/4000070959这是素数有10位
/4000071029这是素数有10位
/4000071043这是素数有10位
/4000071133这是素数有10位
/4000071137这是素数有10位
/4000071149这是素数有10位
/4000071169这是素数有10位
/4000071199这是素数有10位
/4000071211这是素数有10位
/4000071217这是素数有10位
/4000071247这是素数有10位
/4000071263这是素数有10位
/4000071307这是素数有10位
/4000071379这是素数有10位
/4000071421这是素数有10位
/4000071497这是素数有10位
/4000071511这是素数有10位
/4000071563这是素数有10位
/4000071571这是素数有10位
/4000071589这是素数有10位
/4000071599这是素数有10位
/4000071613这是素数有10位
/4000071623这是素数有10位
/4000071637这是素数有10位
/4000071697这是素数有10位
/4000071709这是素数有10位
/4000071743这是素数有10位
/4000071821这是素数有10位
/4000071827这是素数有10位
/4000071851这是素数有10位
/4000071853这是素数有10位
/4000071917这是素数有10位
/4000071931这是素数有10位
/4000071941这是素数有10位
/4000071983这是素数有10位
/4000072007这是素数有10位
/4000072019这是素数有10位
/4000072049这是素数有10位
/4000072061这是素数有10位
/4000072121这是素数有10位
/4000072177这是素数有10位
/4000072187这是素数有10位
/4000072201这是素数有10位
/4000072211这是素数有10位
/4000072229这是素数有10位
/4000072231这是素数有10位
/4000072247这是素数有10位
/4000072253这是素数有10位
/4000072267这是素数有10位
/4000072277这是素数有10位
/4000072289这是素数有10位
/4000072313这是素数有10位
/4000072357这是素数有10位
/4000072403这是素数有10位
/4000072459这是素数有10位
/4000072523这是素数有10位
/4000072529这是素数有10位
/4000072543这是素数有10位
/4000072561这是素数有10位
/4000072633这是素数有10位
/4000072697这是素数有10位
/4000072733这是素数有10位
/4000072751这是素数有10位
/4000072753这是素数有10位
/4000072759这是素数有10位
/4000072777这是素数有10位
/4000072787这是素数有10位
/4000072799这是素数有10位
/4000072819这是素数有10位
/4000072829这是素数有10位
/4000072837这是素数有10位
/4000072841这是素数有10位
/4000072859这是素数有10位
/4000072861这是素数有10位
/4000072883这是素数有10位
/4000072889这是素数有10位
/4000072891这是素数有10位
/4000072897这是素数有10位
/4000072903这是素数有10位
/4000072939这是素数有10位
/4000072943这是素数有10位
/4000072949这是素数有10位
/4000072969这是素数有10位
/4000073027这是素数有10位
/4000073029这是素数有10位
/4000073057这是素数有10位
/4000073111这是素数有10位
/4000073113这是素数有10位
/4000073117这是素数有10位
/4000073149这是素数有10位
/4000073183这是素数有10位
/4000073197这是素数有10位
/4000073213这是素数有10位
/4000073243这是素数有10位
/4000073263这是素数有10位
/4000073279这是素数有10位
/4000073333这是素数有10位
/4000073339这是素数有10位
/4000073347这是素数有10位
/4000073381这是素数有10位
/4000073411这是素数有10位
/4000073423这是素数有10位
/4000073431这是素数有10位
/4000073453这是素数有10位
/4000073461这是素数有10位
/4000073479这是素数有10位
/4000073491这是素数有10位
/4000073513这是素数有10位
/4000073521这是素数有10位
/4000073533这是素数有10位
/4000073557这是素数有10位
/4000073569这是素数有10位
/4000073573这是素数有10位
/4000073587这是素数有10位
/4000073593这是素数有10位
/4000073653这是素数有10位
/4000073657这是素数有10位
/4000073683这是素数有10位
/4000073711这是素数有10位
/4000073713这是素数有10位
/4000073741这是素数有10位
/4000073767这是素数有10位
/4000073783这是素数有10位
/4000073801这是素数有10位
/4000073813这是素数有10位
/4000073821这是素数有10位
/4000073843这是素数有10位
/4000073851这是素数有10位
/4000073879这是素数有10位
/4000073921这是素数有10位
/4000073923这是素数有10位
/4000073947这是素数有10位
/4000073951这是素数有10位
/4000073969这是素数有10位
/4000074017这是素数有10位
/4000074031这是素数有10位
/4000074037这是素数有10位
/4000074053这是素数有10位
/4000074083这是素数有10位
/4000074101这是素数有10位
/4000074137这是素数有10位
/4000074149这是素数有10位
/4000074151这是素数有10位
/4000074173这是素数有10位
/4000074191这是素数有10位
/4000074193这是素数有10位
/4000074203这是素数有10位
/4000074209这是素数有10位
/4000074223这是素数有10位
/4000074251这是素数有10位
/4000074283这是素数有10位
/4000074289这是素数有10位
/4000074293这是素数有10位
/4000074317这是素数有10位
/4000074343这是素数有10位
/4000074373这是素数有10位
/4000074391这是素数有10位
/4000074433这是素数有10位
/4000074437这是素数有10位
/4000074439这是素数有10位
/4000074443这是素数有10位
/4000074461这是素数有10位
/4000074497这是素数有10位
/4000074521这是素数有10位
/4000074539这是素数有10位
/4000074557这是素数有10位
/4000074563这是素数有10位
/4000074569这是素数有10位
/4000074577这是素数有10位
/4000074587这是素数有10位
/4000074607这是素数有10位
/4000074641这是素数有10位
/4000074643这是素数有10位
/4000074649这是素数有10位
/4000074707这是素数有10位
/4000074709这是素数有10位
/4000074713这是素数有10位
/4000074733这是素数有10位
/4000074761这是素数有10位
/4000074781这是素数有10位
/4000074791这是素数有10位
/4000074809这是素数有10位
/4000074853这是素数有10位
/4000074887这是素数有10位
/4000074901这是素数有10位
/4000074907这是素数有10位
/4000074929这是素数有10位
/4000074973这是素数有10位
/4000075031这是素数有10位
/4000075081这是素数有10位
/4000075091这是素数有10位
/4000075109这是素数有10位
/4000075117这是素数有10位
/4000075127这是素数有10位
/4000075139这是素数有10位
/4000075147这是素数有10位
/4000075151这是素数有10位
/4000075159这是素数有10位
/4000075171这是素数有10位
/4000075193这是素数有10位
/4000075207这是素数有10位
/4000075237这是素数有10位
/4000075259这是素数有10位
/4000075271这是素数有10位
/4000075273这是素数有10位
/4000075393这是素数有10位
/4000075397这是素数有10位
/4000075403这是素数有10位
/4000075433这是素数有10位
/4000075459这是素数有10位
/4000075463这是素数有10位
/4000075477这是素数有10位
/4000075517这是素数有10位
/4000075543这是素数有10位
/4000075553这是素数有10位
/4000075601这是素数有10位
/4000075637这是素数有10位
/4000075649这是素数有10位
/4000075663这是素数有10位
/4000075691这是素数有10位
/4000075747这是素数有10位
/4000075753这是素数有10位
/4000075789这是素数有10位
/4000075799这是素数有10位
/4000075801这是素数有10位
/4000075819这是素数有10位
/4000075823这是素数有10位
/4000075829这是素数有10位
/4000075847这是素数有10位
/4000075867这是素数有10位
/4000075873这是素数有10位
/4000075901这是素数有10位
/4000075921这是素数有10位
/4000075939这是素数有10位
/4000075949这是素数有10位
/4000075951这是素数有10位
/4000075991这是素数有10位
/4000075993这是素数有10位
/4000076011这是素数有10位
/4000076057这是素数有10位
/4000076063这是素数有10位
/4000076107这是素数有10位
/4000076117这是素数有10位
/4000076131这是素数有10位
/4000076147这是素数有10位
/4000076189这是素数有10位
/4000076237这是素数有10位
/4000076273这是素数有10位
/4000076299这是素数有10位
/4000076321这是素数有10位
/4000076347这是素数有10位
/4000076369这是素数有10位
/4000076389这是素数有10位
/4000076429这是素数有10位
/4000076447这是素数有10位
/4000076449这是素数有10位
/4000076467这是素数有10位
/4000076471这是素数有10位
/4000076501这是素数有10位
/4000076527这是素数有10位
/4000076539这是素数有10位
/4000076567这是素数有10位
/4000076581这是素数有10位
/4000076653这是素数有10位
/4000076711这是素数有10位
/4000076737这是素数有10位
/4000076741这是素数有10位
/4000076767这是素数有10位
/4000076777这是素数有10位
/4000076779这是素数有10位
/4000076803这是素数有10位
/4000076819这是素数有10位
/4000076827这是素数有10位
/4000076833这是素数有10位
/4000076879这是素数有10位
/4000076921这是素数有10位
/4000076939这是素数有10位
/4000076957这是素数有10位
/4000076959这是素数有10位
/4000076989这是素数有10位
/4000077007这是素数有10位
/4000077031这是素数有10位
/4000077071这是素数有10位
/4000077077这是素数有10位
/4000077083这是素数有10位
/4000077089这是素数有10位
/4000077149这是素数有10位
/4000077167这是素数有10位
/4000077181这是素数有10位
/4000077187这是素数有10位
/4000077199这是素数有10位
/4000077209这是素数有10位
/4000077227这是素数有10位
/4000077229这是素数有10位
/4000077233这是素数有10位
/4000077253这是素数有10位
/4000077259这是素数有10位
/4000077287这是素数有10位
/4000077293这是素数有10位
/4000077299这是素数有10位
/4000077337这是素数有10位
/4000077359这是素数有10位
/4000077371这是素数有10位
/4000077439这是素数有10位
/4000077461这是素数有10位
/4000077469这是素数有10位
/4000077481这是素数有10位
/4000077491这是素数有10位
/4000077493这是素数有10位
/4000077517这是素数有10位
/4000077553这是素数有10位
/4000077569这是素数有10位
/4000077583这是素数有10位
/4000077589这是素数有10位
/4000077593这是素数有10位
/4000077667这是素数有10位
/4000077727这是素数有10位
/4000077743这是素数有10位
/4000077761这是素数有10位
/4000077769这是素数有10位
/4000077773这是素数有10位
/4000077797这是素数有10位
/4000077841这是素数有10位
/4000077853这是素数有10位
/4000077857这是素数有10位
/4000077859这是素数有10位
/4000077877这是素数有10位
/4000077889这是素数有10位
/4000077919这是素数有10位
/4000077941这是素数有10位
/4000077953这是素数有10位
/4000077973这是素数有10位
/4000078009这是素数有10位
/4000078067这是素数有10位
/4000078081这是素数有10位
/4000078091这是素数有10位
/4000078109这是素数有10位
/4000078123这是素数有10位
/4000078127这是素数有10位
/4000078133这是素数有10位
/4000078157这是素数有10位
/4000078163这是素数有10位
/4000078183这是素数有10位
/4000078193这是素数有10位
/4000078213这是素数有10位
/4000078237这是素数有10位
/4000078267这是素数有10位
/4000078331这是素数有10位
/4000078349这是素数有10位
/4000078361这是素数有10位
/4000078363这是素数有10位
/4000078409这是素数有10位
/4000078441这是素数有10位
/4000078463这是素数有10位
/4000078471这是素数有10位
/4000078501这是素数有10位
/4000078541这是素数有10位
/4000078543这是素数有10位
/4000078553这是素数有10位
/4000078559这是素数有10位
/4000078601这是素数有10位
/4000078651这是素数有10位
/4000078703这是素数有10位
/4000078763这是素数有10位
/4000078853这是素数有10位
/4000078861这是素数有10位
/4000078889这是素数有10位
/4000078891这是素数有10位
/4000078933这是素数有10位
/4000078963这是素数有10位
/4000079029这是素数有10位

作者: ysr 时间: 2020-10-2 16:27
/4000079047这是素数有10位
/4000079051这是素数有10位
/4000079053这是素数有10位
/4000079059这是素数有10位
/4000079081这是素数有10位
/4000079099这是素数有10位
/4000079143这是素数有10位
/4000079189这是素数有10位
/4000079191这是素数有10位
/4000079197这是素数有10位
/4000079219这是素数有10位
/4000079231这是素数有10位
/4000079233这是素数有10位
/4000079261这是素数有10位
/4000079267这是素数有10位
/4000079273这是素数有10位
/4000079297这是素数有10位
/4000079371这是素数有10位
/4000079383这是素数有10位
/4000079387这是素数有10位
/4000079401这是素数有10位
/4000079407这是素数有10位
/4000079411这是素数有10位
/4000079423这是素数有10位
/4000079483这是素数有10位
/4000079491这是素数有10位
/4000079497这是素数有10位
/4000079521这是素数有10位
/4000079563这是素数有10位
/4000079599这是素数有10位
/4000079623这是素数有10位
/4000079647这是素数有10位
/4000079683这是素数有10位
/4000079689这是素数有10位
/4000079693这是素数有10位
/4000079729这是素数有10位
/4000079789这是素数有10位
/4000079803这是素数有10位
/4000079849这是素数有10位
/4000079869这是素数有10位
/4000079893这是素数有10位
/4000079933这是素数有10位
/4000079969这是素数有10位
/4000079981这是素数有10位
/4000079987这是素数有10位
/4000079989这是素数有10位
/4000079999这是素数有10位
/4000080043这是素数有10位
/4000080047这是素数有10位
/4000080061这是素数有10位
/4000080103这是素数有10位
/4000080109这是素数有10位
/4000080151这是素数有10位
/4000080157这是素数有10位
/4000080181这是素数有10位
/4000080193这是素数有10位
/4000080199这是素数有10位
/4000080209这是素数有10位
/4000080211这是素数有10位
/4000080221这是素数有10位
/4000080239这是素数有10位
/4000080269这是素数有10位
/4000080283这是素数有10位
/4000080311这是素数有10位
/4000080361这是素数有10位
/4000080377这是素数有10位
/4000080419这是素数有10位
/4000080437这是素数有10位
/4000080509这是素数有10位
/4000080517这是素数有10位
/4000080521这是素数有10位
/4000080523这是素数有10位
/4000080527这是素数有10位
/4000080529这是素数有10位
/4000080533这是素数有10位
/4000080541这是素数有10位
/4000080571这是素数有10位
/4000080593这是素数有10位
/4000080599这是素数有10位
/4000080661这是素数有10位
/4000080683这是素数有10位
/4000080709这是素数有10位
/4000080743这是素数有10位
/4000080769这是素数有10位
/4000080779这是素数有10位
/4000080787这是素数有10位
/4000080793这是素数有10位
/4000080797这是素数有10位
/4000080817这是素数有10位
/4000080823这是素数有10位
/4000080853这是素数有10位
/4000080871这是素数有10位
/4000080883这是素数有10位
/4000080893这是素数有10位
/4000080899这是素数有10位
/4000080913这是素数有10位
/4000080919这是素数有10位
/4000080937这是素数有10位
/4000080961这是素数有10位
/4000080971这是素数有10位
/4000081013这是素数有10位
/4000081021这是素数有10位
/4000081051这是素数有10位
/4000081061这是素数有10位
/4000081069这是素数有10位
/4000081097这是素数有10位
/4000081121这是素数有10位
/4000081171这是素数有10位
/4000081177这是素数有10位
/4000081213这是素数有10位
/4000081303这是素数有10位
/4000081387这是素数有10位
/4000081391这是素数有10位
/4000081399这是素数有10位
/4000081403这是素数有10位
/4000081429这是素数有10位
/4000081489这是素数有10位
/4000081537这是素数有10位
/4000081543这是素数有10位
/4000081549这是素数有10位
/4000081601这是素数有10位
/4000081627这是素数有10位
/4000081633这是素数有10位
/4000081643这是素数有10位
/4000081661这是素数有10位
/4000081693这是素数有10位
/4000081703这是素数有10位
/4000081717这是素数有10位
/4000081739这是素数有10位
/4000081747这是素数有10位
/4000081763这是素数有10位
/4000081769这是素数有10位
/4000081801这是素数有10位
/4000081817这是素数有10位
/4000081819这是素数有10位
/4000081843这是素数有10位
/4000081849这是素数有10位
/4000081873这是素数有10位
/4000081889这是素数有10位
/4000081907这是素数有10位
/4000081957这是素数有10位
/4000081979这是素数有10位
/4000082011这是素数有10位
/4000082071这是素数有10位
/4000082077这是素数有10位
/4000082101这是素数有10位
/4000082113这是素数有10位
/4000082159这是素数有10位
/4000082183这是素数有10位
/4000082209这是素数有10位
/4000082227这是素数有10位
/4000082239这是素数有10位
/4000082263这是素数有10位
/4000082291这是素数有10位
/4000082309这是素数有10位
/4000082323这是素数有10位
/4000082389这是素数有10位
/4000082399这是素数有10位
/4000082431这是素数有10位
/4000082447这是素数有10位
/4000082509这是素数有10位
/4000082519这是素数有10位
/4000082557这是素数有10位
/4000082599这是素数有10位
/4000082629这是素数有10位
/4000082633这是素数有10位
/4000082641这是素数有10位
/4000082659这是素数有10位
/4000082663这是素数有10位
/4000082683这是素数有10位
/4000082693这是素数有10位
/4000082699这是素数有10位
/4000082701这是素数有10位
/4000082717这是素数有10位
/4000082719这是素数有10位
/4000082729这是素数有10位
/4000082731这是素数有10位
/4000082759这是素数有10位
/4000082771这是素数有10位
/4000082791这是素数有10位
/4000082809这是素数有10位
/4000082831这是素数有10位
/4000082851这是素数有10位
/4000082899这是素数有10位
/4000082903这是素数有10位
/4000082917这是素数有10位
/4000082921这是素数有10位
/4000082941这是素数有10位
/4000082951这是素数有10位
/4000082953这是素数有10位
/4000082969这是素数有10位
/4000083001这是素数有10位
/4000083007这是素数有10位
/4000083029这是素数有10位
/4000083037这是素数有10位
/4000083049这是素数有10位
/4000083149这是素数有10位
/4000083161这是素数有10位
/4000083181这是素数有10位
/4000083193这是素数有10位
/4000083223这是素数有10位
/4000083229这是素数有10位
/4000083247这是素数有10位
/4000083251这是素数有10位
/4000083259这是素数有10位
/4000083317这是素数有10位
/4000083331这是素数有10位
/4000083343这是素数有10位
/4000083359这是素数有10位
/4000083371这是素数有10位
/4000083397这是素数有10位
/4000083401这是素数有10位
/4000083443这是素数有10位
/4000083449这是素数有10位
/4000083463这是素数有10位
/4000083467这是素数有10位
/4000083517这是素数有10位
/4000083583这是素数有10位
/4000083649这是素数有10位
/4000083673这是素数有10位
/4000083701这是素数有10位
/4000083713这是素数有10位
/4000083719这是素数有10位
/4000083743这是素数有10位
/4000083809这是素数有10位
/4000083811这是素数有10位
/4000083817这是素数有10位
/4000083887这是素数有10位
/4000083937这是素数有10位
/4000083979这是素数有10位
/4000084009这是素数有10位
/4000084013这是素数有10位
/4000084027这是素数有10位
/4000084051这是素数有10位
/4000084087这是素数有10位
/4000084103这是素数有10位
/4000084111这是素数有10位
/4000084199这是素数有10位
/4000084219这是素数有10位
/4000084229这是素数有10位
/4000084237这是素数有10位
/4000084279这是素数有10位
/4000084313这是素数有10位
/4000084327这是素数有10位
/4000084339这是素数有10位
/4000084369这是素数有10位
/4000084373这是素数有10位
/4000084391这是素数有10位
/4000084427这是素数有10位
/4000084477这是素数有10位
/4000084483这是素数有10位
/4000084493这是素数有10位
/4000084559这是素数有10位
/4000084591这是素数有10位
/4000084603这是素数有10位
/4000084631这是素数有10位
/4000084639这是素数有10位
/4000084651这是素数有10位
/4000084661这是素数有10位
/4000084679这是素数有10位
/4000084727这是素数有10位
/4000084729这是素数有10位
/4000084771这是素数有10位
/4000084793这是素数有10位
/4000084817这是素数有10位
/4000084831这是素数有10位
/4000084841这是素数有10位
/4000084849这是素数有10位
/4000084903这是素数有10位
/4000084909这是素数有10位
/4000084937这是素数有10位
/4000084939这是素数有10位
/4000084961这是素数有10位
/4000084967这是素数有10位
/4000084993这是素数有10位
/4000085003这是素数有10位
/4000085027这是素数有10位
/4000085077这是素数有10位
/4000085083这是素数有10位
/4000085099这是素数有10位
/4000085119这是素数有10位
/4000085137这是素数有10位
/4000085147这是素数有10位
/4000085171这是素数有10位
/4000085179这是素数有10位
/4000085203这是素数有10位
/4000085359这是素数有10位
/4000085387这是素数有10位
/4000085417这是素数有10位
/4000085423这是素数有10位
/4000085459这是素数有10位
/4000085471这是素数有10位
/4000085477这是素数有10位
/4000085491这是素数有10位
/4000085521这是素数有10位
/4000085563这是素数有10位
/4000085627这是素数有10位
/4000085629这是素数有10位
/4000085633这是素数有10位
/4000085671这是素数有10位
/4000085699这是素数有10位
/4000085731这是素数有10位
/4000085741这是素数有10位
/4000085743这是素数有10位
/4000085767这是素数有10位
/4000085783这是素数有10位
/4000085807这是素数有10位
/4000085813这是素数有10位
/4000085863这是素数有10位
/4000085893这是素数有10位
/4000085923这是素数有10位
/4000085927这是素数有10位
/4000085933这是素数有10位
/4000085951这是素数有10位
/4000085959这是素数有10位
/4000085977这是素数有10位
/4000085989这是素数有10位
/4000086007这是素数有10位
/4000086019这是素数有10位
/4000086049这是素数有10位
/4000086053这是素数有10位
/4000086073这是素数有10位
/4000086091这是素数有10位
/4000086121这是素数有10位
/4000086149这是素数有10位
/4000086151这是素数有10位
/4000086161这是素数有10位
/4000086191这是素数有10位

作者: ysr 时间: 2020-10-2 16:28
/4000086197这是素数有10位
/4000086227这是素数有10位
/4000086229这是素数有10位
/4000086257这是素数有10位
/4000086263这是素数有10位
/4000086323这是素数有10位
/4000086347这是素数有10位
/4000086353这是素数有10位
/4000086443这是素数有10位
/4000086487这是素数有10位
/4000086499这是素数有10位
/4000086509这是素数有10位
/4000086533这是素数有10位
/4000086589这是素数有10位
/4000086599这是素数有10位
/4000086617这是素数有10位
/4000086619这是素数有10位
/4000086637这是素数有10位
/4000086677这是素数有10位
/4000086691这是素数有10位
/4000086697这是素数有10位
/4000086709这是素数有10位
/4000086721这是素数有10位
/4000086733这是素数有10位
/4000086737这是素数有10位
/4000086793这是素数有10位
/4000086799这是素数有10位
/4000086889这是素数有10位
/4000086913这是素数有10位
/4000086917这是素数有10位
/4000086931这是素数有10位
/4000086947这是素数有10位
/4000086949这是素数有10位
/4000086991这是素数有10位
/4000087001这是素数有10位
/4000087009这是素数有10位
/4000087019这是素数有10位
/4000087033这是素数有10位
/4000087051这是素数有10位
/4000087079这是素数有10位
/4000087121这是素数有10位
/4000087127这是素数有10位
/4000087129这是素数有10位
/4000087151这是素数有10位
/4000087163这是素数有10位
/4000087177这是素数有10位
/4000087183这是素数有10位
/4000087187这是素数有10位
/4000087211这是素数有10位
/4000087213这是素数有10位
/4000087237这是素数有10位
/4000087241这是素数有10位
/4000087243这是素数有10位
/4000087249这是素数有10位
/4000087283这是素数有10位
/4000087303这是素数有10位
/4000087307这是素数有10位
/4000087379这是素数有10位
/4000087411这是素数有10位
/4000087417这是素数有10位
/4000087453这是素数有10位
/4000087459这是素数有10位
/4000087463这是素数有10位
/4000087517这是素数有10位
/4000087523这是素数有10位
/4000087529这是素数有10位
/4000087577这是素数有10位
/4000087579这是素数有10位
/4000087589这是素数有10位
/4000087643这是素数有10位
/4000087687这是素数有10位
/4000087691这是素数有10位
/4000087739这是素数有10位
/4000087747这是素数有10位
/4000087781这是素数有10位
/4000087787这是素数有10位
/4000087853这是素数有10位
/4000087859这是素数有10位
/4000087867这是素数有10位
/4000087933这是素数有10位
/4000087937这是素数有10位
/4000087939这是素数有10位
/4000087951这是素数有10位
/4000087963这是素数有10位
/4000087967这是素数有10位
/4000087969这是素数有10位
/4000087997这是素数有10位
/4000088003这是素数有10位
/4000088047这是素数有10位
/4000088063这是素数有10位
/4000088087这是素数有10位
/4000088101这是素数有10位
/4000088111这是素数有10位
/4000088123这是素数有10位
/4000088143这是素数有10位
/4000088153这是素数有10位
/4000088177这是素数有10位
/4000088249这是素数有10位
/4000088251这是素数有10位
/4000088293这是素数有10位
/4000088299这是素数有10位
/4000088311这是素数有10位
/4000088333这是素数有10位
/4000088341这是素数有10位
/4000088353这是素数有10位
/4000088381这是素数有10位
/4000088387这是素数有10位
/4000088399这是素数有10位
/4000088413这是素数有10位
/4000088437这是素数有10位
/4000088461这是素数有10位
/4000088479这是素数有10位
/4000088489这是素数有10位
/4000088507这是素数有10位
/4000088551这是素数有10位
/4000088567这是素数有10位
/4000088569这是素数有10位
/4000088621这是素数有10位
/4000088629这是素数有10位
/4000088683这是素数有10位
/4000088761这是素数有10位
/4000088783这是素数有10位
/4000088849这是素数有10位
/4000088881这是素数有10位
/4000088893这是素数有10位
/4000088957这是素数有10位
/4000089013这是素数有10位
/4000089017这是素数有10位
/4000089031这是素数有10位
/4000089083这是素数有10位
/4000089157这是素数有10位
/4000089169这是素数有10位
/4000089179这是素数有10位
/4000089211这是素数有10位
/4000089221这是素数有10位
/4000089281这是素数有10位
/4000089293这是素数有10位
/4000089311这是素数有10位
/4000089329这是素数有10位
/4000089347这是素数有10位
/4000089383这是素数有10位
/4000089389这是素数有10位
/4000089439这是素数有10位
/4000089463这是素数有10位
/4000089469这是素数有10位
/4000089473这是素数有10位
/4000089481这是素数有10位
/4000089517这是素数有10位
/4000089553这是素数有10位
/4000089559这是素数有10位
/4000089593这是素数有10位
/4000089641这是素数有10位
/4000089659这是素数有10位
/4000089671这是素数有10位
/4000089697这是素数有10位
/4000089733这是素数有10位
/4000089767这是素数有10位
/4000089773这是素数有10位
/4000089791这是素数有10位
/4000089833这是素数有10位
/4000089839这是素数有10位
/4000089859这是素数有10位
/4000089883这是素数有10位
/4000089941这是素数有10位
/4000089967这是素数有10位
/4000089979这是素数有10位
/4000089997这是素数有10位
/4000090001这是素数有10位
/4000090019这是素数有10位
/4000090027这是素数有10位
/4000090049这是素数有10位
/4000090099这是素数有10位
/4000090163这是素数有10位
/4000090183这是素数有10位
/4000090231这是素数有10位
/4000090279这是素数有10位
/4000090291这是素数有10位
/4000090307这是素数有10位
/4000090309这是素数有10位
/4000090337这是素数有10位
/4000090343这是素数有10位
/4000090417这是素数有10位
/4000090447这是素数有10位
/4000090483这是素数有10位
/4000090499这是素数有10位
/4000090511这是素数有10位
/4000090529这是素数有10位
/4000090537这是素数有10位
/4000090543这是素数有10位
/4000090547这是素数有10位
/4000090561这是素数有10位
/4000090597这是素数有10位
/4000090607这是素数有10位
/4000090637这是素数有10位
/4000090639这是素数有10位
/4000090681这是素数有10位
/4000090687这是素数有10位
/4000090723这是素数有10位
/4000090739这是素数有10位
/4000090741这是素数有10位
/4000090763这是素数有10位
/4000090771这是素数有10位
/4000090807这是素数有10位
/4000090847这是素数有10位
/4000090877这是素数有10位
/4000090879这是素数有10位
/4000090891这是素数有10位
/4000090903这是素数有10位
/4000090937这是素数有10位
/4000090943这是素数有10位
/4000091003这是素数有10位
/4000091009这是素数有10位
/4000091089这是素数有10位
/4000091099这是素数有10位
/4000091129这是素数有10位
/4000091167这是素数有10位
/4000091171这是素数有10位
/4000091203这是素数有10位
/4000091209这是素数有10位
/4000091219这是素数有10位
/4000091257这是素数有10位
/4000091269这是素数有10位
/4000091273这是素数有10位
/4000091311这是素数有10位
/4000091357这是素数有10位
/4000091363这是素数有10位
/4000091393这是素数有10位
/4000091411这是素数有10位
/4000091453这是素数有10位
/4000091461这是素数有10位
/4000091471这是素数有10位
/4000091477这是素数有10位
/4000091503这是素数有10位
/4000091509这是素数有10位
/4000091521这是素数有10位
/4000091611这是素数有10位
/4000091647这是素数有10位
/4000091657这是素数有10位
/4000091707这是素数有10位
/4000091729这是素数有10位
/4000091743这是素数有10位
/4000091747这是素数有10位
/4000091749这是素数有10位
/4000091761这是素数有10位
/4000091779这是素数有10位
/4000091801这是素数有10位
/4000091807这是素数有10位
/4000091819这是素数有10位
/4000091861这是素数有10位
/4000091873这是素数有10位
/4000091881这是素数有10位
/4000091903这是素数有10位
/4000091939这是素数有10位
/4000091951这是素数有10位
/4000091999这是素数有10位
/4000092007这是素数有10位
/4000092023这是素数有10位
/4000092067这是素数有10位
/4000092073这是素数有10位
/4000092091这是素数有10位
/4000092101这是素数有10位
/4000092199这是素数有10位
/4000092233这是素数有10位
/4000092247这是素数有10位
/4000092251这是素数有10位
/4000092269这是素数有10位
/4000092277这是素数有10位
/4000092281这是素数有10位
/4000092323这是素数有10位
/4000092353这是素数有10位
/4000092361这是素数有10位
/4000092391这是素数有10位
/4000092413这是素数有10位
/4000092463这是素数有10位
/4000092517这是素数有10位
/4000092539这是素数有10位
/4000092581这是素数有10位
/4000092589这是素数有10位
/4000092623这是素数有10位
/4000092631这是素数有10位
/4000092637这是素数有10位
/4000092661这是素数有10位
/4000092671这是素数有10位
/4000092721这是素数有10位
/4000092727这是素数有10位
/4000092731这是素数有10位
/4000092769这是素数有10位
/4000092793这是素数有10位
/4000092821这是素数有10位
/4000092827这是素数有10位
/4000092853这是素数有10位
/4000092869这是素数有10位
/4000092907这是素数有10位
/4000092923这是素数有10位
/4000092949这是素数有10位
/4000092959这是素数有10位
/4000093007这是素数有10位
/4000093063这是素数有10位
/4000093087这是素数有10位
/4000093099这是素数有10位
/4000093147这是素数有10位
/4000093157这是素数有10位
/4000093171这是素数有10位
/4000093213这是素数有10位
/4000093241这是素数有10位
/4000093267这是素数有10位
/4000093283这是素数有10位
/4000093301这是素数有10位
/4000093309这是素数有10位
/4000093367这是素数有10位
/4000093397这是素数有10位
/4000093399这是素数有10位
/4000093411这是素数有10位
/4000093417这是素数有10位
/4000093423这是素数有10位
/4000093459这是素数有10位
/4000093501这是素数有10位
/4000093529这是素数有10位
/4000093543这是素数有10位
/4000093547这是素数有10位
/4000093561这是素数有10位
/4000093577这是素数有10位
/4000093589这是素数有10位
/4000093597这是素数有10位
/4000093609这是素数有10位
/4000093631这是素数有10位
/4000093633这是素数有10位
/4000093639这是素数有10位
/4000093651这是素数有10位
/4000093661这是素数有10位
/4000093673这是素数有10位
/4000093679这是素数有10位
/4000093681这是素数有10位
/4000093687这是素数有10位
/4000093703这是素数有10位
/4000093733这是素数有10位
/4000093763这是素数有10位
/4000093817这是素数有10位
/4000093841这是素数有10位
/4000093861这是素数有10位
/4000093871这是素数有10位
/4000093891这是素数有10位
/4000093913这是素数有10位
/4000093927这是素数有10位
/4000093973这是素数有10位
/4000093987这是素数有10位
/4000094023这是素数有10位
/4000094117这是素数有10位
/4000094159这是素数有10位
/4000094167这是素数有10位
/4000094173这是素数有10位
/4000094201这是素数有10位
/4000094251这是素数有10位
/4000094303这是素数有10位
/4000094327这是素数有10位
/4000094363这是素数有10位
/4000094429这是素数有10位
/4000094431这是素数有10位
/4000094437这是素数有10位
/4000094503这是素数有10位
/4000094533这是素数有10位
/4000094537这是素数有10位
/4000094551这是素数有10位
/4000094557这是素数有10位
/4000094573这是素数有10位
/4000094617这是素数有10位
/4000094663这是素数有10位
/4000094699这是素数有10位
/4000094711这是素数有10位
/4000094723这是素数有10位
/4000094731这是素数有10位
/4000094759这是素数有10位
/4000094771这是素数有10位
/4000094807这是素数有10位
/4000094809这是素数有10位
/4000094831这是素数有10位
/4000094843这是素数有10位
/4000094851这是素数有10位
/4000094863这是素数有10位
/4000094881这是素数有10位
/4000094929这是素数有10位
/4000094939这是素数有10位
/4000094957这是素数有10位
/4000094981这是素数有10位
/4000094983这是素数有10位
/4000094993这是素数有10位
/4000095007这是素数有10位
/4000095059这是素数有10位
/4000095067这是素数有10位
/4000095089这是素数有10位
/4000095091这是素数有10位
/4000095107这是素数有10位
/4000095109这是素数有10位
/4000095149这是素数有10位
/4000095161这是素数有10位
/4000095179这是素数有10位
/4000095221这是素数有10位
/4000095263这是素数有10位
/4000095269这是素数有10位
/4000095283这是素数有10位
/4000095293这是素数有10位
/4000095343这是素数有10位
/4000095353这是素数有10位
/4000095431这是素数有10位
/4000095467这是素数有10位
/4000095481这是素数有10位
/4000095487这是素数有10位
/4000095497这是素数有10位
/4000095521这是素数有10位
/4000095527这是素数有10位
/4000095551这是素数有10位
/4000095643这是素数有10位
/4000095647这是素数有10位
/4000095653这是素数有10位
/4000095661这是素数有10位
/4000095677这是素数有10位
/4000095691这是素数有10位
/4000095703这是素数有10位
/4000095731这是素数有10位
/4000095739这是素数有10位
/4000095791这是素数有10位
/4000095817这是素数有10位
/4000095829这是素数有10位
/4000095839这是素数有10位
/4000095857这是素数有10位
/4000095877这是素数有10位
/4000095907这是素数有10位
/4000095929这是素数有10位
/4000095961这是素数有10位
/4000096003这是素数有10位
/4000096007这是素数有10位
/4000096019这是素数有10位
/4000096031这是素数有10位
/4000096099这是素数有10位
/4000096127这是素数有10位
/4000096147这是素数有10位
/4000096157这是素数有10位
/4000096169这是素数有10位
/4000096181这是素数有10位
/4000096187这是素数有10位
/4000096249这是素数有10位
/4000096283这是素数有10位
/4000096297这是素数有10位
/4000096301这是素数有10位
/4000096333这是素数有10位
/4000096343这是素数有10位
/4000096357这是素数有10位
/4000096403这是素数有10位
/4000096417这是素数有10位
/4000096423这是素数有10位
/4000096459这是素数有10位
/4000096487这是素数有10位
/4000096531这是素数有10位
/4000096553这是素数有10位
/4000096579这是素数有10位
/4000096591这是素数有10位
/4000096609这是素数有10位
/4000096621这是素数有10位
/4000096627这是素数有10位
/4000096631这是素数有10位
/4000096649这是素数有10位
/4000096663这是素数有10位
/4000096669这是素数有10位
/4000096673这是素数有10位
/4000096679这是素数有10位
/4000096693这是素数有10位
/4000096697这是素数有10位
/4000096699这是素数有10位
/4000096703这是素数有10位
/4000096739这是素数有10位
/4000096747这是素数有10位
/4000096813这是素数有10位
/4000096853这是素数有10位
/4000096871这是素数有10位
/4000096897这是素数有10位
/4000096909这是素数有10位
/4000096939这是素数有10位
/4000096993这是素数有10位
/4000097027这是素数有10位
/4000097053这是素数有10位
/4000097077这是素数有10位
/4000097081这是素数有10位
/4000097089这是素数有10位
/4000097137这是素数有10位
/4000097191这是素数有10位
/4000097203这是素数有10位
/4000097207这是素数有10位
/4000097221这是素数有10位
/4000097251这是素数有10位
/4000097261这是素数有10位
/4000097267这是素数有10位
/4000097287这是素数有10位
/4000097323这是素数有10位
/4000097347这是素数有10位
/4000097401这是素数有10位
/4000097429这是素数有10位
/4000097459这是素数有10位
/4000097477这是素数有10位
/4000097527这是素数有10位
/4000097579这是素数有10位
/4000097581这是素数有10位
/4000097593这是素数有10位
/4000097599这是素数有10位
/4000097609这是素数有10位
/4000097623这是素数有10位
/4000097681这是素数有10位
/4000097729这是素数有10位
/4000097813这是素数有10位
/4000097821这是素数有10位
/4000097837这是素数有10位
/4000097839这是素数有10位
/4000097863这是素数有10位
/4000097867这是素数有10位
/4000097903这是素数有10位
/4000097917这是素数有10位
/4000097971这是素数有10位
/4000097993这是素数有10位
/4000098001这是素数有10位
/4000098007这是素数有10位
/4000098017这是素数有10位
/4000098059这是素数有10位
/4000098071这是素数有10位
/4000098103这是素数有10位
/4000098127这是素数有10位
/4000098133这是素数有10位
/4000098163这是素数有10位
/4000098191这是素数有10位
/4000098197这是素数有10位
/4000098217这是素数有10位
/4000098227这是素数有10位
/4000098229这是素数有10位
/4000098239这是素数有10位
/4000098251这是素数有10位
/4000098269这是素数有10位
/4000098287这是素数有10位
/4000098313这是素数有10位
/4000098353这是素数有10位
/4000098359这是素数有10位
/4000098407这是素数有10位
/4000098439这是素数有10位
/4000098511这是素数有10位
/4000098523这是素数有10位
/4000098533这是素数有10位
/4000098563这是素数有10位
/4000098581这是素数有10位
/4000098587这是素数有10位
/4000098611这是素数有10位
/4000098629这是素数有10位
/4000098653这是素数有10位
/4000098679这是素数有10位
/4000098689这是素数有10位
/4000098721这是素数有10位
/4000098727这是素数有10位
/4000098743这是素数有10位
/4000098761这是素数有10位
/4000098863这是素数有10位
/4000098881这是素数有10位
/4000098911这是素数有10位
/4000098941这是素数有10位
/4000098953这是素数有10位
/4000098979这是素数有10位
/4000099001这是素数有10位
/4000099003这是素数有10位
/4000099069这是素数有10位
/4000099087这是素数有10位
/4000099093这是素数有10位
/4000099097这是素数有10位
/4000099151这是素数有10位
/4000099153这是素数有10位
/4000099247这是素数有10位
/4000099249这是素数有10位
/4000099283这是素数有10位
/4000099309这是素数有10位
/4000099319这是素数有10位
/4000099321这是素数有10位
/4000099333这是素数有10位
/4000099343这是素数有10位
/4000099357这是素数有10位
/4000099361这是素数有10位
/4000099379这是素数有10位
/4000099501这是素数有10位
/4000099513这是素数有10位
/4000099531这是素数有10位
/4000099561这是素数有10位
/4000099577这是素数有10位
/4000099591这是素数有10位
/4000099613这是素数有10位
/4000099619这是素数有10位
/4000099627这是素数有10位
/4000099633这是素数有10位
/4000099651这是素数有10位
/4000099673这是素数有10位
/4000099679这是素数有10位
/4000099693这是素数有10位
/4000099709这是素数有10位
/4000099721这是素数有10位
/4000099739这是素数有10位
/4000099783这是素数有10位
/4000099801这是素数有10位
/4000099843这是素数有10位
/4000099937这是素数有10位
/4000099969这是素数有10位
/4000099979这是素数有10位
/4000099981这是素数有10位

作者: ysr 时间: 2020-10-2 16:31
4000100000~4000101000之间的素数有44个：
4000100003这是素数有10位
4000100023这是素数有10位
4000100029这是素数有10位
4000100053这是素数有10位
4000100059这是素数有10位
4000100089这是素数有10位
4000100099这是素数有10位
4000100149这是素数有10位
4000100173这是素数有10位
4000100183这是素数有10位
4000100201这是素数有10位
4000100233这是素数有10位
4000100243这是素数有10位
4000100287这是素数有10位
4000100309这是素数有10位
4000100317这是素数有10位
4000100369这是素数有10位
4000100383这是素数有10位
4000100389这是素数有10位
4000100411这是素数有10位
4000100417这是素数有10位
4000100443这是素数有10位
4000100477这是素数有10位
4000100483这是素数有10位
4000100497这是素数有10位
4000100501这是素数有10位
4000100549这是素数有10位
4000100551这是素数有10位
4000100567这是素数有10位
4000100569这是素数有10位
4000100579这是素数有10位
4000100617这是素数有10位
4000100669这是素数有10位
4000100701这是素数有10位
4000100743这是素数有10位
4000100749这是素数有10位
4000100771这是素数有10位
4000100777这是素数有10位
4000100801这是素数有10位
4000100849这是素数有10位
4000100861这是素数有10位
4000100869这是素数有10位
4000100941这是素数有10位
4000100981这是素数有10位

作者: ysr 时间: 2020-10-2 16:33
本帖最后由 ysr 于 2021-8-20 14:12 编辑

代码如下：

Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
b(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   b(J) = 99
   Else
   b(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(b(J), MbC(Trim(js), 200)), b(J))) = -1

   b(J) = b(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(J)), b(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(b(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, b() As String
ReDim a(4 To 4 * x + 4)
ReDim b(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  b(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While a(J) = b(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(b(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(b(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim a() As String
   ReDim a(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim b() As String
   JW = 0
   ReDim b(1 To x)
   For J = 1 To x Step 1
b(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(b(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & b(r)
      Else
      CJ = CJ & b(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, b() As String

  ReDim a(1 To x)
  ReDim b(1 To Y)
  For I = 1 To x
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  b(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If

End If


  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, Y '两数长度
x = Len(D1): Y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, J, 1) '每位数
For I = x To 1 Step -1 'D1
  C1 = Mid$(D1, I, 1) '每位数
  CJ = C1 * C2 + JW '计算乘积
  c = I + J: r = Y + 1 - J
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + Y)
JW = 0
For I = x + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + a(I, J)
Next
b(I) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For I = 2 To x + Y
MbC = MbC & b(I)
Next
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid(D4, J, 1) ';每位数
For I = x To 1 Step -1  ';D1
a(I) = Mid(d3, I, 1) ';每位数
C1(I) = 10 + a(I) - B1(I) - 1 + JW ';计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
If Not Mid(MPC, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next


End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, Y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
B1(J) = Mid$(D4, J, 1) '每位数
For I = x To 1 Step -1  'D1
a(I) = Mid$(d3, I, 1) '每位数
C1(I) = a(I) + B1(I) + JW '计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next

End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then

  If Val(a) > Val(b) Then
   c = a
   d = b
  Else
   c = b
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   b = a * s + b
   c = c
   d = c * s + d
   Else
   b = b
   a = a + b * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (a + b) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 5 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
程序改过来了，可以筛选6位内的素数了。

作者: ysr 时间: 2020-10-3 21:22
本帖最后由 ysr 于 2022-1-16 12:24 编辑

4000101000~4000111000之间的素数有457个：
4000101023  4000101029  4000101031  4000101059  4000101121
4000101251  4000101289  4000101307  4000101311  4000101319
4000101379  4000101389  4000101397  4000101431  4000101449
4000101467  4000101473  4000101493  4000101517  4000101533
4000101613  4000101619  4000101671  4000101691  4000101727
4000101757  4000101767  4000101769  4000101773  4000101797
4000101799  4000101841  4000101881  4000101907  4000101997
4000102003  4000102009  4000102013  4000102033  4000102097
4000102111  4000102121  4000102123  4000102151  4000102163
4000102177  4000102181  4000102189  4000102207  4000102213
4000102277  4000102279  4000102289  4000102303  4000102313
4000102369  4000102373  4000102387  4000102399  4000102411
4000102427  4000102429  4000102487  4000102493  4000102529
4000102537  4000102543  4000102553  4000102607  4000102619
4000102637  4000102643  4000102651  4000102657  4000102693
4000102727  4000102739  4000102783  4000102787  4000102789
4000102793  4000102861  4000102961  4000102969  4000103033
4000103047  4000103053  4000103057  4000103083  4000103123
4000103137  4000103141  4000103147  4000103183  4000103201
4000103207  4000103227  4000103249  4000103267  4000103297
4000103311  4000103323  4000103333  4000103339  4000103347
4000103353  4000103357  4000103381  4000103399  4000103407
4000103447  4000103449  4000103453  4000103477  4000103521
4000103531  4000103533  4000103537  4000103551  4000103563
4000103593  4000103629  4000103647  4000103659  4000103711
4000103761  4000103797  4000103803  4000103813  4000103819
4000103873  4000103917  4000103959  4000103963  4000103971
4000104001  4000104019  4000104049  4000104061  4000104071
4000104089  4000104107  4000104137  4000104161  4000104169
4000104187  4000104191  4000104193  4000104239  4000104253
4000104281  4000104323  4000104343  4000104359  4000104391
4000104439  4000104469  4000104481  4000104509  4000104533
4000104553  4000104557  4000104583  4000104617  4000104653
4000104671  4000104679  4000104701  4000104737  4000104761
4000104767  4000104791  4000104793  4000104839  4000104851
4000104863  4000104883  4000104917  4000104943  4000104991
4000105001  4000105009  4000105037  4000105063  4000105079
4000105091  4000105097  4000105121  4000105127  4000105129
4000105147  4000105159  4000105163  4000105177  4000105183
4000105211  4000105231  4000105259  4000105271  4000105273
4000105331  4000105357  4000105379  4000105391  4000105463
4000105471  4000105493  4000105507  4000105537  4000105583
4000105609  4000105621  4000105649  4000105679  4000105793
4000105799  4000105859  4000105867  4000105873  4000105897
4000105903  4000105913  4000105951  4000105957  4000105961
4000105969  4000105997  4000106023  4000106041  4000106051
4000106053  4000106057  4000106059  4000106063  4000106129
4000106167  4000106179  4000106251  4000106263  4000106269
4000106287  4000106291  4000106317  4000106339  4000106419
4000106437  4000106447  4000106449  4000106491  4000106501
4000106521  4000106533  4000106563  4000106567  4000106573
4000106581  4000106587  4000106639  4000106699  4000106797
4000106807  4000106809  4000106819  4000106827  4000106861
4000106921  4000106923  4000106951  4000107017  4000107019
4000107029  4000107053  4000107061  4000107071  4000107091
4000107101  4000107109  4000107143  4000107151  4000107173
4000107233  4000107239  4000107247  4000107263  4000107277
4000107283  4000107317  4000107329  4000107337  4000107341
4000107347  4000107383  4000107427  4000107457  4000107467
4000107469  4000107509  4000107511  4000107523  4000107571
4000107607  4000107613  4000107707  4000107719  4000107733
4000107739  4000107751  4000107763  4000107773  4000107821
4000107841  4000107863  4000107889  4000107899  4000107907
4000107919  4000107949  4000107959  4000107977  4000107989
4000108027  4000108031  4000108039  4000108093  4000108129
4000108159  4000108163  4000108193  4000108207  4000108241
4000108267  4000108291  4000108337  4000108339  4000108423
4000108429  4000108439  4000108481  4000108499  4000108523
4000108531  4000108537  4000108559  4000108561  4000108603
4000108621  4000108633  4000108663  4000108667  4000108699
4000108709  4000108747  4000108771  4000108829  4000108897
4000108907  4000108919  4000108921  4000108943  4000108979
4000109011  4000109033  4000109051  4000109053  4000109059
4000109089  4000109119  4000109123  4000109131  4000109137
4000109143  4000109167  4000109189  4000109213  4000109237
4000109251  4000109263  4000109303  4000109327  4000109341
4000109369  4000109381  4000109383  4000109389  4000109419
4000109437  4000109453  4000109467  4000109473  4000109549
4000109573  4000109579  4000109657  4000109677
4000109689  4000109731  4000109761  4000109797  4000109803
4000109807  4000109819  4000109821  4000109903  4000109909
4000109921  4000109947  4000110043  4000110053  4000110077
4000110083  4000110089  4000110097  4000110119  4000110161
4000110199  4000110209  4000110227  4000110229  4000110241
4000110271  4000110281  4000110307  4000110311  4000110329
4000110349  4000110377  4000110397  4000110407  4000110437
4000110463  4000110467  4000110479  4000110487  4000110493
4000110503  4000110533  4000110547  4000110551  4000110553
4000110571  4000110613  4000110623  4000110643  4000110689
4000110703  4000110731  4000110739  4000110749  4000110767
4000110787  4000110797  4000110799  4000110887  4000110893
4000110937  4000110979  4000110997

作者: ysr 时间: 2020-10-3 21:25
本帖最后由 ysr 于 2021-8-20 14:14 编辑

代码如下：
Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
b(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   b(J) = 99
   Else
   b(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(b(J), MbC(Trim(js), 200)), b(J))) = -1

   b(J) = b(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(J)), b(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(b(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, b() As String
ReDim a(4 To 4 * x + 4)
ReDim b(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  b(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While a(J) = b(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(b(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(b(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim a() As String
   ReDim a(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim b() As String
   JW = 0
   ReDim b(1 To x)
   For J = 1 To x Step 1
b(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(b(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & b(r)
      Else
      CJ = CJ & b(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, b() As String

  ReDim a(1 To x)
  ReDim b(1 To Y)
  For I = 1 To x
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  b(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If

End If


  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, Y '两数长度
x = Len(D1): Y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, J, 1) '每位数
For I = x To 1 Step -1 'D1
  C1 = Mid$(D1, I, 1) '每位数
  CJ = C1 * C2 + JW '计算乘积
  c = I + J: r = Y + 1 - J
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + Y)
JW = 0
For I = x + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + a(I, J)
Next
b(I) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For I = 2 To x + Y
MbC = MbC & b(I)
Next
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid(D4, J, 1) ';每位数
For I = x To 1 Step -1  ';D1
a(I) = Mid(d3, I, 1) ';每位数
C1(I) = 10 + a(I) - B1(I) - 1 + JW ';计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
If Not Mid(MPC, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next


End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, Y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
B1(J) = Mid$(D4, J, 1) '每位数
For I = x To 1 Step -1  'D1
a(I) = Mid$(d3, I, 1) '每位数
C1(I) = a(I) + B1(I) + JW '计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next

End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then

  If Val(a) > Val(b) Then
   c = a
   d = b
  Else
   c = b
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   b = a * s + b
   c = c
   d = c * s + d
   Else
   b = b
   a = a + b * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (a + b) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 5 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
程序改过来了，可以筛选6位内的小素数了。

作者: ysr 时间: 2020-11-30 21:43
几年前青岛那宝吉老师给了我一段15位的素数表，共92个是他自己的方法编的程序计算的时间短（好像是VF语言），不记得是说的多长时间了，我今天用我的程序验证了一下（VB语言）（就是前面这个程序），可能都对，结果如下：
765432123456829~765432123459989之间的素数有92个：
765432123456829  765432123456967  765432123457003  765432123457021  765432123457069
765432123457087  765432123457103  765432123457171  765432123457187  765432123457193
765432123457201  765432123457217  765432123457247  765432123457279  765432123457411
765432123457423  765432123457447  765432123457483  765432123457523  765432123457543
765432123457577  765432123457607  765432123457621  765432123457643  765432123457649
765432123457679  765432123457699  765432123457721  765432123457753  765432123457769
765432123457811  765432123457817  765432123457843  765432123457849  765432123457853
765432123457877  765432123457901  765432123457933  765432123458011  765432123458017
765432123458039  765432123458087  765432123458227  765432123458243  765432123458251
765432123458323  765432123458363  765432123458377  765432123458393  765432123458461
765432123458579  765432123458599  765432123458669  765432123458683  765432123458689
765432123458707  765432123458759  765432123458851  765432123458867  765432123458887
765432123458987  765432123458999  765432123459019  765432123459037  765432123459083
765432123459109  765432123459121  765432123459181  765432123459191  765432123459287
765432123459329  765432123459337  765432123459347  765432123459371  765432123459383
765432123459397  765432123459407  765432123459469  765432123459503  765432123459511
765432123459541  765432123459617  765432123459727  765432123459763  765432123459791
765432123459797  765432123459847  765432123459863  765432123459911  765432123459917
765432123459937  765432123459989

作者: ysr 时间: 2020-12-8 21:24
30~100之间的素数有15个：
31  37  41  43  47
53  59  61  67  71
73  79  83  89  97
该程序有问题不会得到小的素数，修改了一下，得不到2，不知道咋了？大于2的都有了，下面发一下大于30的素数表：

作者: ysr 时间: 2020-12-8 21:35
30~19991之间的素数有2250个：
31  37  41  43  47  53  59  61  67  71
73  79  83  89  97  101  103  107  109  113
127  131  137  139  149  151  157  163  167  173
179  181  191  193  197  199  211  223  227  229
233  239  241  251  257  263  269  271  277  281
283  293  307  311  313  317  331  337  347  349
353  359  367  373  379  383  389  397  401  409
419  421  431  433  439  443  449  457  461  463
467  479  487  491  499  503  509  521  523  541
547  557  563  569  571  577  587  593  599  601
607  613  617  619  631  641  643  647  653  659
661  673  677  683  691  701  709  719  727  733
739  743  751  757  761  769  773  787  797  809
811  821  823  827  829  839  853  857  859  863
877  881  883  887  907  911  919  929  937  941
947  953  967  971  977  983  991  997  1009  1013
1019  1021  1031  1033  1039  1049  1051  1061  1063  1069
1087  1091  1093  1097  1103  1109  1117  1123  1129  1151
1153  1163  1171  1181  1187  1193  1201  1213  1217  1223
1229  1231  1237  1249  1259  1277  1279  1283  1289  1291
1297  1301  1303  1307  1319  1321  1327  1361  1367  1373
1381  1399  1409  1423  1427  1429  1433  1439  1447  1451
1453  1459  1471  1481  1483  1487  1489  1493  1499  1511
1523  1531  1543  1549  1553  1559  1567  1571  1579  1583
1597  1601  1607  1609  1613  1619  1621  1627  1637  1657
1663  1667  1669  1693  1697  1699  1709  1721  1723  1733
1741  1747  1753  1759  1777  1783  1787  1789  1801  1811
1823  1831  1847  1861  1867  1871  1873  1877  1879  1889
1901  1907  1913  1931  1933  1949  1951  1973  1979  1987
1993  1997  1999  2003  2011  2017  2027  2029  2039  2053
2063  2069  2081  2083  2087  2089  2099  2111  2113  2129
2131  2137  2141  2143  2153  2161  2179  2203  2207  2213
2221  2237  2239  2243  2251  2267  2269  2273  2281  2287
2293  2297  2309  2311  2333  2339  2341  2347  2351  2357
2371  2377  2381  2383  2389  2393  2399  2411  2417  2423
2437  2441  2447  2459  2467  2473  2477  2503  2521  2531
2539  2543  2549  2551  2557  2579  2591  2593  2609  2617
2621  2633  2647  2657  2659  2663  2671  2677  2683  2687
2689  2693  2699  2707  2711  2713  2719  2729  2731  2741
2749  2753  2767  2777  2789  2791  2797  2801  2803  2819
2833  2837  2843  2851  2857  2861  2879  2887  2897  2903
2909  2917  2927  2939  2953  2957  2963  2969  2971  2999
3001  3011  3019  3023  3037  3041  3049  3061  3067  3079
3083  3089  3109  3119  3121  3137  3163  3167  3169  3181
3187  3191  3203  3209  3217  3221  3229  3251  3253  3257
3259  3271  3299  3301  3307  3313  3319  3323  3329  3331
3343  3347  3359  3361  3371  3373  3389  3391  3407  3413
3433  3449  3457  3461  3463  3467  3469  3491  3499  3511
3517  3527  3529  3533  3539  3541  3547  3557  3559  3571
3581  3583  3593  3607  3613  3617  3623  3631  3637  3643
3659  3671  3673  3677  3691  3697  3701  3709  3719  3727
3733  3739  3761  3767  3769  3779  3793  3797  3803  3821
3823  3833  3847  3851  3853  3863  3877  3881  3889  3907
3911  3917  3919  3923  3929  3931  3943  3947  3967  3989
4001  4003  4007  4013  4019  4021  4027  4049  4051  4057
4073  4079  4091  4093  4099  4111  4127  4129  4133  4139
4153  4157  4159  4177  4201  4211  4217  4219  4229  4231
4241  4243  4253  4259  4261  4271  4273  4283  4289  4297
4327  4337  4339  4349  4357  4363  4373  4391  4397  4409
4421  4423  4441  4447  4451  4457  4463  4481  4483  4493
4507  4513  4517  4519  4523  4547  4549  4561  4567  4583
4591  4597  4603  4621  4637  4639  4643  4649  4651  4657
4663  4673  4679  4691  4703  4721  4723  4729  4733  4751
4759  4783  4787  4789  4793  4799  4801  4813  4817  4831
4861  4871  4877  4889  4903  4909  4919  4931  4933  4937
4943  4951  4957  4967  4969  4973  4987  4993  4999  5003
5009  5011  5021  5023  5039  5051  5059  5077  5081  5087
5099  5101  5107  5113  5119  5147  5153  5167  5171  5179
5189  5197  5209  5227  5231  5233  5237  5261  5273  5279
5281  5297  5303  5309  5323  5333  5347  5351  5381  5387
5393  5399  5407  5413  5417  5419  5431  5437  5441  5443
5449  5471  5477  5479  5483  5501  5503  5507  5519  5521
5527  5531  5557  5563  5569  5573  5581  5591  5623  5639
5641  5647  5651  5653  5657  5659  5669  5683  5689  5693
5701  5711  5717  5737  5741  5743  5749  5779  5783  5791
5801  5807  5813  5821  5827  5839  5843  5849  5851  5857
5861  5867  5869  5879  5881  5897  5903  5923  5927  5939
5953  5981  5987  6007  6011  6029  6037  6043  6047  6053
6067  6073  6079  6089  6091  6101  6113  6121  6131  6133
6143  6151  6163  6173  6197  6199  6203  6211  6217  6221
6229  6247  6257  6263  6269  6271  6277  6287  6299  6301
6311  6317  6323  6329  6337  6343  6353  6359  6361  6367
6373  6379  6389  6397  6421  6427  6449  6451  6469  6473
6481  6491  6521  6529  6547  6551  6553  6563  6569  6571
6577  6581  6599  6607  6619  6637  6653  6659  6661  6673
6679  6689  6691  6701  6703  6709  6719  6733  6737  6761
6763  6779  6781  6791  6793  6803  6823  6827  6829  6833
6841  6857  6863  6869  6871  6883  6899  6907  6911  6917
6947  6949  6959  6961  6967  6971  6977  6983  6991  6997
7001  7013  7019  7027  7039  7043  7057  7069  7079  7103
7109  7121  7127  7129  7151  7159  7177  7187  7193  7207
7211  7213  7219  7229  7237  7243  7247  7253  7283  7297
7307  7309  7321  7331  7333  7349  7351  7369  7393  7411
7417  7433  7451  7457  7459  7477  7481  7487  7489  7499
7507  7517  7523  7529  7537  7541  7547  7549  7559  7561
7573  7577  7583  7589  7591  7603  7607  7621  7639  7643
7649  7669  7673  7681  7687  7691  7699  7703  7717  7723
7727  7741  7753  7757  7759  7789  7793  7817  7823  7829
7841  7853  7867  7873  7877  7879  7883  7901  7907  7919
7927  7933  7937  7949  7951  7963  7993  8009  8011  8017
8039  8053  8059  8069  8081  8087  8089  8093  8101  8111
8117  8123  8147  8161  8167  8171  8179  8191  8209  8219
8221  8231  8233  8237  8243  8263  8269  8273  8287  8291
8293  8297  8311  8317  8329  8353  8363  8369  8377  8387
8389  8419  8423  8429  8431  8443  8447  8461  8467  8501
8513  8521  8527  8537  8539  8543  8563  8573  8581  8597
8599  8609  8623  8627  8629  8641  8647  8663  8669  8677
8681  8689  8693  8699  8707  8713  8719  8731  8737  8741
8747  8753  8761  8779  8783  8803  8807  8819  8821  8831
8837  8839  8849  8861  8863  8867  8887  8893  8923  8929
8933  8941  8951  8963  8969  8971  8999  9001  9007  9011
9013  9029  9041  9043  9049  9059  9067  9091  9103  9109
9127  9133  9137  9151  9157  9161  9173  9181  9187  9199
9203  9209  9221  9227  9239  9241  9257  9277  9281  9283
9293  9311  9319  9323  9337  9341  9343  9349  9371  9377
9391  9397  9403  9413  9419  9421  9431  9433  9437  9439
9461  9463  9467  9473  9479  9491  9497  9511  9521  9533
9539  9547  9551  9587  9601  9613  9619  9623  9629  9631
9643  9649  9661  9677  9679  9689  9697  9719  9721  9733
9739  9743  9749  9767  9769  9781  9787  9791  9803  9811
9817  9829  9833  9839  9851  9857  9859  9871  9883  9887
9901  9907  9923  9929  9931  9941  9949  9967  9973  10007
10009  10037  10039  10061  10067  10069  10079  10091  10093  10099
10103  10111  10133  10139  10141  10151  10159  10163  10169  10177
10181  10193  10211  10223  10243  10247  10253  10259  10267  10271
10273  10289  10301  10303  10313  10321  10331  10333  10337  10343
10357  10369  10391  10399  10427  10429  10433  10453  10457  10459
10463  10477  10487  10499  10501  10513  10529  10531  10559  10567
10589  10597  10601  10607  10613  10627  10631  10639  10651  10657
10663  10667  10687  10691  10709  10711  10723  10729  10733  10739
10753  10771  10781  10789  10799  10831  10837  10847  10853  10859
10861  10867  10883  10889  10891  10903  10909  10937  10939  10949
10957  10973  10979  10987  10993  11003  11027  11047  11057  11059
11069  11071  11083  11087  11093  11113  11117  11119  11131  11149
11159  11161  11171  11173  11177  11197  11213  11239  11243  11251
11257  11261  11273  11279  11287  11299  11311  11317  11321  11329
11351  11353  11369  11383  11393  11399  11411  11423  11437  11443
11447  11467  11471  11483  11489  11491  11497  11503  11519  11527
11549  11551  11579  11587  11593  11597  11617  11621  11633  11657
11677  11681  11689  11699  11701  11717  11719  11731  11743  11777
11779  11783  11789  11801  11807  11813  11821  11827  11831  11833
11839  11863  11867  11887  11897  11903  11909  11923  11927  11933
11939  11941  11953  11959  11969  11971  11981  11987  12007  12011
12037  12041  12043  12049  12071  12073  12097  12101  12107  12109
12113  12119  12143  12149  12157  12161  12163  12197  12203  12211
12227  12239  12241  12251  12253  12263  12269  12277  12281  12289
12301  12323  12329  12343  12347  12373  12377  12379  12391  12401
12409  12413  12421  12433  12437  12451  12457  12473  12479  12487
12491  12497  12503  12511  12517  12527  12539  12541  12547  12553
12569  12577  12583  12589  12601  12611  12613  12619  12637  12641
12647  12653  12659  12671  12689  12697  12703  12713  12721  12739
12743  12757  12763  12781  12791  12799  12809  12821  12823  12829
12841  12853  12889  12893  12899  12907  12911  12917  12919  12923
12941  12953  12959  12967  12973  12979  12983  13001  13003  13007
13009  13033  13037  13043  13049  13063  13093  13099  13103  13109
13121  13127  13147  13151  13159  13163  13171  13177  13183  13187
13217  13219  13229  13241  13249  13259  13267  13291  13297  13309
13313  13327  13331  13337  13339  13367  13381  13397  13399  13411
13417  13421  13441  13451  13457  13463  13469  13477  13487  13499
13513  13523  13537  13553  13567  13577  13591  13597  13613  13619
13627  13633  13649  13669  13679  13681  13687  13691  13693  13697
13709  13711  13721  13723  13729  13751  13757  13759  13763  13781
13789  13799  13807  13829  13831  13841  13859  13873  13877  13879
13883  13901  13903  13907  13913  13921  13931  13933  13963  13967
13997  13999  14009  14011  14029  14033  14051  14057  14071  14081
14083  14087  14107  14143  14149  14153  14159  14173  14177  14197
14207  14221  14243  14249  14251  14281  14293  14303  14321  14323
14327  14341  14347  14369  14387  14389  14401  14407  14411  14419
14423  14431  14437  14447  14449  14461  14479  14489  14503  14519
14533  14537  14543  14549  14551  14557  14561  14563  14591  14593
14621  14627  14629  14633  14639  14653  14657  14669  14683  14699
14713  14717  14723  14731  14737  14741  14747  14753  14759  14767
14771  14779  14783  14797  14813  14821  14827  14831  14843  14851
14867  14869  14879  14887  14891  14897  14923  14929  14939  14947
14951  14957  14969  14983  15013  15017  15031  15053  15061  15073
15077  15083  15091  15101  15107  15121  15131  15137  15139  15149
15161  15173  15187  15193  15199  15217  15227  15233  15241  15259
15263  15269  15271  15277  15287  15289  15299  15307  15313  15319
15329  15331  15349  15359  15361  15373  15377  15383  15391  15401
15413  15427  15439  15443  15451  15461  15467  15473  15493  15497
15511  15527  15541  15551  15559  15569  15581  15583  15601  15607
15619  15629  15641  15643  15647  15649  15661  15667  15671  15679
15683  15727  15731  15733  15737  15739  15749  15761  15767  15773
15787  15791  15797  15803  15809  15817  15823  15859  15877  15881
15887  15889  15901  15907  15913  15919  15923  15937  15959  15971
15973  15991  16001  16007  16033  16057  16061  16063  16067  16069
16073  16087  16091  16097  16103  16111  16127  16139  16141  16183
16187  16189  16193  16217  16223  16229  16231  16249  16253  16267
16273  16301  16319  16333  16339  16349  16361  16363  16369  16381
16411  16417  16421  16427  16433  16447  16451  16453  16477  16481
16487  16493  16519  16529  16547  16553  16561  16567  16573  16603
16607  16619  16631  16633  16649  16651  16657  16661  16673  16691
16693  16699  16703  16729  16741  16747  16759  16763  16787  16811
16823  16829  16831  16843  16871  16879  16883  16889  16901  16903
16921  16927  16931  16937  16943  16963  16979  16981  16987  16993
17011  17021  17027  17029  17033  17041  17047  17053  17077  17093
17099  17107  17117  17123  17137  17159  17167  17183  17189  17191
17203  17207  17209  17231  17239  17257  17291  17293  17299  17317
17321  17327  17333  17341  17351  17359  17377  17383  17387  17389
17393  17401  17417  17419  17431  17443  17449  17467  17471  17477
17483  17489  17491  17497  17509  17519  17539  17551  17569  17573
17579  17581  17597  17599  17609  17623  17627  17657  17659  17669
17681  17683  17707  17713  17729  17737  17747  17749  17761  17783
17789  17791  17807  17827  17837  17839  17851  17863  17881  17891
17903  17909  17911  17921  17923  17929  17939  17957  17959  17971
17977  17981  17987  17989  18013  18041  18043  18047  18049  18059
18061  18077  18089  18097  18119  18121  18127  18131  18133  18143
18149  18169  18181  18191  18199  18211  18217  18223  18229  18233
18251  18253  18257  18269  18287  18289  18301  18307  18311  18313
18329  18341  18353  18367  18371  18379  18397  18401  18413  18427
18433  18439  18443  18451  18457  18461  18481  18493  18503  18517
18521  18523  18539  18541  18553  18583  18587  18593  18617  18637
18661  18671  18679  18691  18701  18713  18719  18731  18743  18749
18757  18773  18787  18793  18797  18803  18839  18859  18869  18899
18911  18913  18917  18919  18947  18959  18973  18979  19001  19009
19013  19031  19037  19051  19069  19073  19079  19081  19087  19121
19139  19141  19157  19163  19181  19183  19207  19211  19213  19219
19231  19237  19249  19259  19267  19273  19289  19301  19309  19319
19333  19373  19379  19381  19387  19391  19403  19417  19421  19423
19427  19429  19433  19441  19447  19457  19463  19469  19471  19477
19483  19489  19501  19507  19531  19541  19543  19553  19559  19571
19577  19583  19597  19603  19609  19661  19681  19687  19697  19699
19709  19717  19727  19739  19751  19753  19759  19763  19777  19793
19801  19813  19819  19841  19843  19853  19861  19867  19889  19891
19913  19919  19927  19937  19949  19961  19963  19973  19979  19991

作者: ysr 时间: 2020-12-8 21:39
19992~39971之间的素数有1940个：
19993  19997  20011  20021  20023  20029  20047  20051  20063  20071
20089  20101  20107  20113  20117  20123  20129  20143  20147  20149
20161  20173  20177  20183  20201  20219  20231  20233  20249  20261
20269  20287  20297  20323  20327  20333  20341  20347  20353  20357
20359  20369  20389  20393  20399  20407  20411  20431  20441  20443
20477  20479  20483  20507  20509  20521  20533  20543  20549  20551
20563  20593  20599  20611  20627  20639  20641  20663  20681  20693
20707  20717  20719  20731  20743  20747  20749  20753  20759  20771
20773  20789  20807  20809  20849  20857  20873  20879  20887  20897
20899  20903  20921  20929  20939  20947  20959  20963  20981  20983
21001  21011  21013  21017  21019  21023  21031  21059  21061  21067
21089  21101  21107  21121  21139  21143  21149  21157  21163  21169
21179  21187  21191  21193  21211  21221  21227  21247  21269  21277
21283  21313  21317  21319  21323  21341  21347  21377  21379  21383
21391  21397  21401  21407  21419  21433  21467  21481  21487  21491
21493  21499  21503  21517  21521  21523  21529  21557  21559  21563
21569  21577  21587  21589  21599  21601  21611  21613  21617  21647
21649  21661  21673  21683  21701  21713  21727  21737  21739  21751
21757  21767  21773  21787  21799  21803  21817  21821  21839  21841
21851  21859  21863  21871  21881  21893  21911  21929  21937  21943
21961  21977  21991  21997  22003  22013  22027  22031  22037  22039
22051  22063  22067  22073  22079  22091  22093  22109  22111  22123
22129  22133  22147  22153  22157  22159  22171  22189  22193  22229
22247  22259  22271  22273  22277  22279  22283  22291  22303  22307
22343  22349  22367  22369  22381  22391  22397  22409  22433  22441
22447  22453  22469  22481  22483  22501  22511  22531  22541  22543
22549  22567  22571  22573  22613  22619  22621  22637  22639  22643
22651  22669  22679  22691  22697  22699  22709  22717  22721  22727
22739  22741  22751  22769  22777  22783  22787  22807  22811  22817
22853  22859  22861  22871  22877  22901  22907  22921  22937  22943
22961  22963  22973  22993  23003  23011  23017  23021  23027  23029
23039  23041  23053  23057  23059  23063  23071  23081  23087  23099
23117  23131  23143  23159  23167  23173  23189  23197  23201  23203
23209  23227  23251  23269  23279  23291  23293  23297  23311  23321
23327  23333  23339  23357  23369  23371  23399  23417  23431  23447
23459  23473  23497  23509  23531  23537  23539  23549  23557  23561
23563  23567  23581  23593  23599  23603  23609  23623  23627  23629
23633  23663  23669  23671  23677  23687  23689  23719  23741  23743
23747  23753  23761  23767  23773  23789  23801  23813  23819  23827
23831  23833  23857  23869  23873  23879  23887  23893  23899  23909
23911  23917  23929  23957  23971  23977  23981  23993  24001  24007
24019  24023  24029  24043  24049  24061  24071  24077  24083  24091
24097  24103  24107  24109  24113  24121  24133  24137  24151  24169
24179  24181  24197  24203  24223  24229  24239  24247  24251  24281
24317  24329  24337  24359  24371  24373  24379  24391  24407  24413
24419  24421  24439  24443  24469  24473  24481  24499  24509  24517
24527  24533  24547  24551  24571  24593  24611  24623  24631  24659
24671  24677  24683  24691  24697  24709  24733  24749  24763  24767
24781  24793  24799  24809  24821  24841  24847  24851  24859  24877
24889  24907  24917  24919  24923  24943  24953  24967  24971  24977
24979  24989  25013  25031  25033  25037  25057  25073  25087  25097
25111  25117  25121  25127  25147  25153  25163  25169  25171  25183
25189  25219  25229  25237  25243  25247  25253  25261  25301  25303
25307  25309  25321  25339  25343  25349  25357  25367  25373  25391
25409  25411  25423  25439  25447  25453  25457  25463  25469  25471
25523  25537  25541  25561  25577  25579  25583  25589  25601  25603
25609  25621  25633  25639  25643  25657  25667  25673  25679  25693
25703  25717  25733  25741  25747  25759  25763  25771  25793  25799
25801  25819  25841  25847  25849  25867  25873  25889  25903  25913
25919  25931  25933  25939  25943  25951  25969  25981  25997  25999
26003  26017  26021  26029  26041  26053  26083  26099  26107  26111
26113  26119  26141  26153  26161  26171  26177  26183  26189  26203
26209  26227  26237  26249  26251  26261  26263  26267  26293  26297
26309  26317  26321  26339  26347  26357  26371  26387  26393  26399
26407  26417  26423  26431  26437  26449  26459  26479  26489  26497
26501  26513  26539  26557  26561  26573  26591  26597  26627  26633
26641  26647  26669  26681  26683  26687  26693  26699  26701  26711
26713  26717  26723  26729  26731  26737  26759  26777  26783  26801
26813  26821  26833  26839  26849  26861  26863  26879  26881  26891
26893  26903  26921  26927  26947  26951  26953  26959  26981  26987
26993  27011  27017  27031  27043  27059  27061  27067  27073  27077
27091  27103  27107  27109  27127  27143  27179  27191  27197  27211
27239  27241  27253  27259  27271  27277  27281  27283  27299  27329
27337  27361  27367  27397  27407  27409  27427  27431  27437  27449
27457  27479  27481  27487  27509  27527  27529  27539  27541  27551
27581  27583  27611  27617  27631  27647  27653  27673  27689  27691
27697  27701  27733  27737  27739  27743  27749  27751  27763  27767
27773  27779  27791  27793  27799  27803  27809  27817  27823  27827
27847  27851  27883  27893  27901  27917  27919  27941  27943  27947
27953  27961  27967  27983  27997  28001  28019  28027  28031  28051
28057  28069  28081  28087  28097  28099  28109  28111  28123  28151
28163  28181  28183  28201  28211  28219  28229  28277  28279  28283
28289  28297  28307  28309  28319  28349  28351  28387  28393  28403
28409  28411  28429  28433  28439  28447  28463  28477  28493  28499
28513  28517  28537  28541  28547  28549  28559  28571  28573  28579
28591  28597  28603  28607  28619  28621  28627  28631  28643  28649
28657  28661  28663  28669  28687  28697  28703  28711  28723  28729
28751  28753  28759  28771  28789  28793  28807  28813  28817  28837
28843  28859  28867  28871  28879  28901  28909  28921  28927  28933
28949  28961  28979  29009  29017  29021  29023  29027  29033  29059
29063  29077  29101  29123  29129  29131  29137  29147  29153  29167
29173  29179  29191  29201  29207  29209  29221  29231  29243  29251
29269  29287  29297  29303  29311  29327  29333  29339  29347  29363
29383  29387  29389  29399  29401  29411  29423  29429  29437  29443
29453  29473  29483  29501  29527  29531  29537  29567  29569  29573
29581  29587  29599  29611  29629  29633  29641  29663  29669  29671
29683  29717  29723  29741  29753  29759  29761  29789  29803  29819
29833  29837  29851  29863  29867  29873  29879  29881  29917  29921
29927  29947  29959  29983  29989  30011  30013  30029  30047  30059
30071  30089  30091  30097  30103  30109  30113  30119  30133  30137
30139  30161  30169  30181  30187  30197  30203  30211  30223  30241
30253  30259  30269  30271  30293  30307  30313  30319  30323  30341
30347  30367  30389  30391  30403  30427  30431  30449  30467  30469
30491  30493  30497  30509  30517  30529  30539  30553  30557  30559
30577  30593  30631  30637  30643  30649  30661  30671  30677  30689
30697  30703  30707  30713  30727  30757  30763  30773  30781  30803
30809  30817  30829  30839  30841  30851  30853  30859  30869  30871
30881  30893  30911  30931  30937  30941  30949  30971  30977  30983
31013  31019  31033  31039  31051  31063  31069  31079  31081  31091
31121  31123  31139  31147  31151  31153  31159  31177  31181  31183
31189  31193  31219  31223  31231  31237  31247  31249  31253  31259
31267  31271  31277  31307  31319  31321  31327  31333  31337  31357
31379  31387  31391  31393  31397  31469  31477  31481  31489  31511
31513  31517  31531  31541  31543  31547  31567  31573  31583  31601
31607  31627  31643  31649  31657  31663  31667  31687  31699  31721
31723  31727  31729  31741  31751  31769  31771  31793  31799  31817
31847  31849  31859  31873  31883  31891  31907  31957  31963  31973
31981  31991  32003  32009  32027  32029  32051  32057  32059  32063
32069  32077  32083  32089  32099  32117  32119  32141  32143  32159
32173  32183  32189  32191  32203  32213  32233  32237  32251  32257
32261  32297  32299  32303  32309  32321  32323  32327  32341  32353
32359  32363  32369  32371  32377  32381  32401  32411  32413  32423
32429  32441  32443  32467  32479  32491  32497  32503  32507  32531
32533  32537  32561  32563  32569  32573  32579  32587  32603  32609
32611  32621  32633  32647  32653  32687  32693  32707  32713  32717
32719  32749  32771  32779  32783  32789  32797  32801  32803  32831
32833  32839  32843  32869  32887  32909  32911  32917  32933  32939
32941  32957  32969  32971  32983  32987  32993  32999  33013  33023
33029  33037  33049  33053  33071  33073  33083  33091  33107  33113
33119  33149  33151  33161  33179  33181  33191  33199  33203  33211
33223  33247  33287  33289  33301  33311  33317  33329  33331  33343
33347  33349  33353  33359  33377  33391  33403  33409  33413  33427
33457  33461  33469  33479  33487  33493  33503  33521  33529  33533
33547  33563  33569  33577  33581  33587  33589  33599  33601  33613
33617  33619  33623  33629  33637  33641  33647  33679  33703  33713
33721  33739  33749  33751  33757  33767  33769  33773  33791  33797
33809  33811  33827  33829  33851  33857  33863  33871  33889  33893
33911  33923  33931  33937  33941  33961  33967  33997  34019  34031
34033  34039  34057  34061  34123  34127  34129  34141  34147  34157
34159  34171  34183  34211  34213  34217  34231  34253  34259  34261
34267  34273  34283  34297  34301  34303  34313  34319  34327  34337
34351  34361  34367  34369  34381  34403  34421  34429  34439  34457
34469  34471  34483  34487  34499  34501  34511  34513  34519  34537
34543  34549  34583  34589  34591  34603  34607  34613  34631  34649
34651  34667  34673  34679  34687  34693  34703  34721  34729  34739
34747  34757  34759  34763  34781  34807  34819  34841  34843  34847
34849  34871  34877  34883  34897  34913  34919  34939  34949  34961
34963  34981  35023  35027  35051  35053  35059  35069  35081  35083
35089  35099  35107  35111  35117  35129  35141  35149  35153  35159
35171  35201  35221  35227  35251  35257  35267  35279  35281  35291
35311  35317  35323  35327  35339  35353  35363  35381  35393  35401
35407  35419  35423  35437  35447  35449  35461  35491  35507  35509
35521  35527  35531  35533  35537  35543  35569  35573  35591  35593
35597  35603  35617  35671  35677  35729  35731  35747  35753  35759
35771  35797  35801  35803  35809  35831  35837  35839  35851  35863
35869  35879  35897  35899  35911  35923  35933  35951  35963  35969
35977  35983  35993  35999  36007  36011  36013  36017  36037  36061
36067  36073  36083  36097  36107  36109  36131  36137  36151  36161
36187  36191  36209  36217  36229  36241  36251  36263  36269  36277
36293  36299  36307  36313  36319  36341  36343  36353  36373  36383
36389  36433  36451  36457  36467  36469  36473  36479  36493  36497
36523  36527  36529  36541  36551  36559  36563  36571  36583  36587
36599  36607  36629  36637  36643  36653  36671  36677  36683  36691
36697  36709  36713  36721  36739  36749  36761  36767  36779  36781
36787  36791  36793  36809  36821  36833  36847  36857  36871  36877
36887  36899  36901  36913  36919  36923  36929  36931  36943  36947
36973  36979  36997  37003  37013  37019  37021  37039  37049  37057
37061  37087  37097  37117  37123  37139  37159  37171  37181  37189
37199  37201  37217  37223  37243  37253  37273  37277  37307  37309
37313  37321  37337  37339  37357  37361  37363  37369  37379  37397
37409  37423  37441  37447  37463  37483  37489  37493  37501  37507
37511  37517  37529  37537  37547  37549  37561  37567  37571  37573
37579  37589  37591  37607  37619  37633  37643  37649  37657  37663
37691  37693  37699  37717  37747  37781  37783  37799  37811  37813
37831  37847  37853  37861  37871  37879  37889  37897  37907  37951
37957  37963  37967  37987  37991  37993  37997  38011  38039  38047
38053  38069  38083  38113  38119  38149  38153  38167  38177  38183
38189  38197  38201  38219  38231  38237  38239  38261  38273  38281
38287  38299  38303  38317  38321  38327  38329  38333  38351  38371
38377  38393  38431  38447  38449  38453  38459  38461  38501  38543
38557  38561  38567  38569  38593  38603  38609  38611  38629  38639
38651  38653  38669  38671  38677  38693  38699  38707  38711  38713
38723  38729  38737  38747  38749  38767  38783  38791  38803  38821
38833  38839  38851  38861  38867  38873  38891  38903  38917  38921
38923  38933  38953  38959  38971  38977  38993  39019  39023  39041
39043  39047  39079  39089  39097  39103  39107  39113  39119  39133
39139  39157  39161  39163  39181  39191  39199  39209  39217  39227
39229  39233  39239  39241  39251  39293  39301  39313  39317  39323
39341  39343  39359  39367  39371  39373  39383  39397  39409  39419
39439  39443  39451  39461  39499  39503  39509  39511  39521  39541
39551  39563  39569  39581  39607  39619  39623  39631  39659  39667
39671  39679  39703  39709  39719  39727  39733  39749  39761  39769
39779  39791  39799  39821  39827  39829  39839  39841  39847  39857
39863  39869  39877  39883  39887  39901  39929  39937  39953  39971

作者: ysr 时间: 2020-12-8 21:41
本帖最后由 ysr 于 2020-12-8 14:52 编辑

39972~59887之间的素数有1850个：
39979  39983  39989  40009  40013  40031  40037  40039  40063  40087
40093  40099  40111  40123  40127  40129  40151  40153  40163  40169
40177  40189  40193  40213  40231  40237  40241  40253  40277  40283
40289  40343  40351  40357  40361  40387  40423  40427  40429  40433
40459  40471  40483  40487  40493  40499  40507  40519  40529  40531
40543  40559  40577  40583  40591  40597  40609  40627  40637  40639
40693  40697  40699  40709  40739  40751  40759  40763  40771  40787
40801  40813  40819  40823  40829  40841  40847  40849  40853  40867
40879  40883  40897  40903  40927  40933  40939  40949  40961  40973
40993  41011  41017  41023  41039  41047  41051  41057  41077  41081
41113  41117  41131  41141  41143  41149  41161  41177  41179  41183
41189  41201  41203  41213  41221  41227  41231  41233  41243  41257
41263  41269  41281  41299  41333  41341  41351  41357  41381  41387
41389  41399  41411  41413  41443  41453  41467  41479  41491  41507
41513  41519  41521  41539  41543  41549  41579  41593  41597  41603
41609  41611  41617  41621  41627  41641  41647  41651  41659  41669
41681  41687  41719  41729  41737  41759  41761  41771  41777  41801
41809  41813  41843  41849  41851  41863  41879  41887  41893  41897
41903  41911  41927  41941  41947  41953  41957  41959  41969  41981
41983  41999  42013  42017  42019  42023  42043  42061  42071  42073
42083  42089  42101  42131  42139  42157  42169  42179  42181  42187
42193  42197  42209  42221  42223  42227  42239  42257  42281  42283
42293  42299  42307  42323  42331  42337  42349  42359  42373  42379
42391  42397  42403  42407  42409  42433  42437  42443  42451  42457
42461  42463  42467  42473  42487  42491  42499  42509  42533  42557
42569  42571  42577  42589  42611  42641  42643  42649  42667  42677
42683  42689  42697  42701  42703  42709  42719  42727  42737  42743
42751  42767  42773  42787  42793  42797  42821  42829  42839  42841
42853  42859  42863  42899  42901  42923  42929  42937  42943  42953
42961  42967  42979  42989  43003  43013  43019  43037  43049  43051
43063  43067  43093  43103  43117  43133  43151  43159  43177  43189
43201  43207  43223  43237  43261  43271  43283  43291  43313  43319
43321  43331  43391  43397  43399  43403  43411  43427  43441  43451
43457  43481  43487  43499  43517  43541  43543  43573  43577  43579
43591  43597  43607  43609  43613  43627  43633  43649  43651  43661
43669  43691  43711  43717  43721  43753  43759  43777  43781  43783
43787  43789  43793  43801  43853  43867  43889  43891  43913  43933
43943  43951  43961  43963  43969  43973  43987  43991  43997  44017
44021  44027  44029  44041  44053  44059  44071  44087  44089  44101
44111  44119  44123  44129  44131  44159  44171  44179  44189  44201
44203  44207  44221  44249  44257  44263  44267  44269  44273  44279
44281  44293  44351  44357  44371  44381  44383  44389  44417  44449
44453  44483  44491  44497  44501  44507  44519  44531  44533  44537
44543  44549  44563  44579  44587  44617  44621  44623  44633  44641
44647  44651  44657  44683  44687  44699  44701  44711  44729  44741
44753  44771  44773  44777  44789  44797  44809  44819  44839  44843
44851  44867  44879  44887  44893  44909  44917  44927  44939  44953
44959  44963  44971  44983  44987  45007  45013  45053  45061  45077
45083  45119  45121  45127  45131  45137  45139  45161  45179  45181
45191  45197  45233  45247  45259  45263  45281  45289  45293  45307
45317  45319  45329  45337  45341  45343  45361  45377  45389  45403
45413  45427  45433  45439  45481  45491  45497  45503  45523  45533
45541  45553  45557  45569  45587  45589  45599  45613  45631  45641
45659  45667  45673  45677  45691  45697  45707  45737  45751  45757
45763  45767  45779  45817  45821  45823  45827  45833  45841  45853
45863  45869  45887  45893  45943  45949  45953  45959  45971  45979
45989  46021  46027  46049  46051  46061  46073  46091  46093  46099
46103  46133  46141  46147  46153  46171  46181  46183  46187  46199
46219  46229  46237  46261  46271  46273  46279  46301  46307  46309
46327  46337  46349  46351  46381  46399  46411  46439  46441  46447
46451  46457  46471  46477  46489  46499  46507  46511  46523  46549
46559  46567  46573  46589  46591  46601  46619  46633  46639  46643
46649  46663  46679  46681  46687  46691  46703  46723  46727  46747
46751  46757  46769  46771  46807  46811  46817  46819  46829  46831
46853  46861  46867  46877  46889  46901  46919  46933  46957  46993
46997  47017  47041  47051  47057  47059  47087  47093  47111  47119
47123  47129  47137  47143  47147  47149  47161  47189  47207  47221
47237  47251  47269  47279  47287  47293  47297  47303  47309  47317
47339  47351  47353  47363  47381  47387  47389  47407  47417  47419
47431  47441  47459  47491  47497  47501  47507  47513  47521  47527
47533  47543  47563  47569  47581  47591  47599  47609  47623  47629
47639  47653  47657  47659  47681  47699  47701  47711  47713  47717
47737  47741  47743  47777  47779  47791  47797  47807  47809  47819
47837  47843  47857  47869  47881  47903  47911  47917  47933  47939
47947  47951  47963  47969  47977  47981  48017  48023  48029  48049
48073  48079  48091  48109  48119  48121  48131  48157  48163  48179
48187  48193  48197  48221  48239  48247  48259  48271  48281  48299
48311  48313  48337  48341  48353  48371  48383  48397  48407  48409
48413  48437  48449  48463  48473  48479  48481  48487  48491  48497
48523  48527  48533  48539  48541  48563  48571  48589  48593  48611
48619  48623  48647  48649  48661  48673  48677  48679  48731  48733
48751  48757  48761  48767  48779  48781  48787  48799  48809  48817
48821  48823  48847  48857  48859  48869  48871  48883  48889  48907
48947  48953  48973  48989  48991  49003  49009  49019  49031  49033
49037  49043  49057  49069  49081  49103  49109  49117  49121  49123
49139  49157  49169  49171  49177  49193  49199  49201  49207  49211
49223  49253  49261  49277  49279  49297  49307  49331  49333  49339
49363  49367  49369  49391  49393  49409  49411  49417  49429  49433
49451  49459  49463  49477  49481  49499  49523  49529  49531  49537
49547  49549  49559  49597  49603  49613  49627  49633  49639  49663
49667  49669  49681  49697  49711  49727  49739  49741  49747  49757
49783  49787  49789  49801  49807  49811  49823  49831  49843  49853
49871  49877  49891  49919  49921  49927  49937  49939  49943  49957
49991  49993  49999  50021  50023  50033  50047  50051  50053  50069
50077  50087  50093  50101  50111  50119  50123  50129  50131  50147
50153  50159  50177  50207  50221  50227  50231  50261  50263  50273
50287  50291  50311  50321  50329  50333  50341  50359  50363  50377
50383  50387  50411  50417  50423  50441  50459  50461  50497  50503
50513  50527  50539  50543  50549  50551  50581  50587  50591  50593
50599  50627  50647  50651  50671  50683  50707  50723  50741  50753
50767  50773  50777  50789  50821  50833  50839  50849  50857  50867
50873  50891  50893  50909  50923  50929  50951  50957  50969  50971
50989  50993  51001  51031  51043  51047  51059  51061  51071  51109
51131  51133  51137  51151  51157  51169  51193  51197  51199  51203
51217  51229  51239  51241  51257  51263  51283  51287  51307  51329
51341  51343  51347  51349  51361  51383  51407  51413  51419  51421
51427  51431  51437  51439  51449  51461  51473  51479  51481  51487
51503  51511  51517  51521  51539  51551  51563  51577  51581  51593
51599  51607  51613  51631  51637  51647  51659  51673  51679  51683
51691  51713  51719  51721  51749  51767  51769  51787  51797  51803
51817  51827  51829  51839  51853  51859  51869  51871  51893  51899
51907  51913  51929  51941  51949  51971  51973  51977  51991  52009
52021  52027  52051  52057  52067  52069  52081  52103  52121  52127
52147  52153  52163  52177  52181  52183  52189  52201  52223  52237
52249  52253  52259  52267  52289  52291  52301  52313  52321  52361
52363  52369  52379  52387  52391  52433  52453  52457  52489  52501
52511  52517  52529  52541  52543  52553  52561  52567  52571  52579
52583  52609  52627  52631  52639  52667  52673  52691  52697  52709
52711  52721  52727  52733  52747  52757  52769  52783  52807  52813
52817  52837  52859  52861  52879  52883  52889  52901  52903  52919
52937  52951  52957  52963  52967  52973  52981  52999  53003  53017
53047  53051  53069  53077  53087  53089  53093  53101  53113  53117
53129  53147  53149  53161  53171  53173  53189  53197  53201  53231
53233  53239  53267  53269  53279  53281  53299  53309  53323  53327
53353  53359  53377  53381  53401  53407  53411  53419  53437  53441
53453  53479  53503  53507  53527  53549  53551  53569  53591  53593
53597  53609  53611  53617  53623  53629  53633  53639  53653  53657
53681  53693  53699  53717  53719  53731  53759  53773  53777  53783
53791  53813  53819  53831  53849  53857  53861  53881  53887  53891
53897  53899  53917  53923  53927  53939  53951  53959  53987  53993
54001  54011  54013  54037  54049  54059  54083  54091  54101  54121
54133  54139  54151  54163  54167  54181  54193  54217  54251  54269
54277  54287  54293  54311  54319  54323  54331  54347  54361  54367
54371  54377  54401  54403  54409  54413  54419  54421  54437  54443
54449  54469  54493  54497  54499  54503  54517  54521  54539  54541
54547  54559  54563  54577  54581  54583  54601  54617  54623  54629
54631  54647  54667  54673  54679  54709  54713  54721  54727  54751
54767  54773  54779  54787  54799  54829  54833  54851  54869  54877
54881  54907  54917  54919  54941  54949  54959  54973  54979  54983
55001  55009  55021  55049  55051  55057  55061  55073  55079  55103
55109  55117  55127  55147  55163  55171  55201  55207  55213  55217
55219  55229  55243  55249  55259  55291  55313  55331  55333  55337
55339  55343  55351  55373  55381  55399  55411  55439  55441  55457
55469  55487  55501  55511  55529  55541  55547  55579  55589  55603
55609  55619  55621  55631  55633  55639  55661  55663  55667  55673
55681  55691  55697  55711  55717  55721  55733  55763  55787  55793
55799  55807  55813  55817  55819  55823  55829  55837  55843  55849
55871  55889  55897  55901  55903  55921  55927  55931  55933  55949
55967  55987  55997  56003  56009  56039  56041  56053  56081  56087
56093  56099  56101  56113  56123  56131  56149  56167  56171  56179
56197  56207  56209  56237  56239  56249  56263  56267  56269  56299
56311  56333  56359  56369  56377  56383  56393  56401  56417  56431
56437  56443  56453  56467  56473  56477  56479  56489  56501  56503
56509  56519  56527  56531  56533  56543  56569  56591  56597  56599
56611  56629  56633  56659  56663  56671  56681  56687  56701  56711
56713  56731  56737  56747  56767  56773  56779  56783  56807  56809
56813  56821  56827  56843  56857  56873  56891  56893  56897  56909
56911  56921  56923  56929  56941  56951  56957  56963  56983  56989
56993  56999  57037  57041  57047  57059  57073  57077  57089  57097
57107  57119  57131  57139  57143  57149  57163  57173  57179  57191
57193  57203  57221  57223  57241  57251  57259  57269  57271  57283
57287  57301  57329  57331  57347  57349  57367  57373  57383  57389
57397  57413  57427  57457  57467  57487  57493  57503  57527  57529
57557  57559  57571  57587  57593  57601  57637  57641  57649  57653
57667  57679  57689  57697  57709  57713  57719  57727  57731  57737
57751  57773  57781  57787  57791  57793  57803  57809  57829  57839
57847  57853  57859  57881  57899  57901  57917  57923  57943  57947
57973  57977  57991  58013  58027  58031  58043  58049  58057  58061
58067  58073  58099  58109  58111  58129  58147  58151  58153  58169
58171  58189  58193  58199  58207  58211  58217  58229  58231  58237
58243  58271  58309  58313  58321  58337  58363  58367  58369  58379
58391  58393  58403  58411  58417  58427  58439  58441  58451  58453
58477  58481  58511  58537  58543  58549  58567  58573  58579  58601
58603  58613  58631  58657  58661  58679  58687  58693  58699  58711
58727  58733  58741  58757  58763  58771  58787  58789  58831  58889
58897  58901  58907  58909  58913  58921  58937  58943  58963  58967
58979  58991  58997  59009  59011  59021  59023  59029  59051  59053
59063  59069  59077  59083  59093  59107  59113  59119  59123  59141
59149  59159  59167  59183  59197  59207  59209  59219  59221  59233
59239  59243  59263  59273  59281  59333  59341  59351  59357  59359
59369  59377  59387  59393  59399  59407  59417  59419  59441  59443
59447  59453  59467  59471  59473  59497  59509  59513  59539  59557
59561  59567  59581  59611  59617  59621  59627  59629  59651  59659
59663  59669  59671  59693  59699  59707  59723  59729  59743  59747
59753  59771  59779  59791  59797  59809  59833  59863  59879  59887

作者: ysr 时间: 2020-12-8 21:43
本帖最后由 ysr 于 2020-12-8 14:03 编辑

59888~79939之间的素数有1780个：
59921  59929  59951  59957  59971  59981  59999  60013  60017  60029
60037  60041  60077  60083  60089  60091  60101  60103  60107  60127
60133  60139  60149  60161  60167  60169  60209  60217  60223  60251
60257  60259  60271  60289  60293  60317  60331  60337  60343  60353
60373  60383  60397  60413  60427  60443  60449  60457  60493  60497
60509  60521  60527  60539  60589  60601  60607  60611  60617  60623
60631  60637  60647  60649  60659  60661  60679  60689  60703  60719
60727  60733  60737  60757  60761  60763  60773  60779  60793  60811
60821  60859  60869  60887  60889  60899  60901  60913  60917  60919
60923  60937  60943  60953  60961  61001  61007  61027  61031  61043
61051  61057  61091  61099  61121  61129  61141  61151  61153  61169
61211  61223  61231  61253  61261  61283  61291  61297  61331  61333
61339  61343  61357  61363  61379  61381  61403  61409  61417  61441
61463  61469  61471  61483  61487  61493  61507  61511  61519  61543
61547  61553  61559  61561  61583  61603  61609  61613  61627  61631
61637  61643  61651  61657  61667  61673  61681  61687  61703  61717
61723  61729  61751  61757  61781  61813  61819  61837  61843  61861
61871  61879  61909  61927  61933  61949  61961  61967  61979  61981
61987  61991  62003  62011  62017  62039  62047  62053  62057  62071
62081  62099  62119  62129  62131  62137  62141  62143  62171  62189
62191  62201  62207  62213  62219  62233  62273  62297  62299  62303
62311  62323  62327  62347  62351  62383  62401  62417  62423  62459
62467  62473  62477  62483  62497  62501  62507  62533  62539  62549
62563  62581  62591  62597  62603  62617  62627  62633  62639  62653
62659  62683  62687  62701  62723  62731  62743  62753  62761  62773
62791  62801  62819  62827  62851  62861  62869  62873  62897  62903
62921  62927  62929  62939  62969  62971  62981  62983  62987  62989
63029  63031  63059  63067  63073  63079  63097  63103  63113  63127
63131  63149  63179  63197  63199  63211  63241  63247  63277  63281
63299  63311  63313  63317  63331  63337  63347  63353  63361  63367
63377  63389  63391  63397  63409  63419  63421  63439  63443  63463
63467  63473  63487  63493  63499  63521  63527  63533  63541  63559
63577  63587  63589  63599  63601  63607  63611  63617  63629  63647
63649  63659  63667  63671  63689  63691  63697  63703  63709  63719
63727  63737  63743  63761  63773  63781  63793  63799  63803  63809
63823  63839  63841  63853  63857  63863  63901  63907  63913  63929
63949  63977  63997  64007  64013  64019  64033  64037  64063  64067
64081  64091  64109  64123  64151  64153  64157  64171  64187  64189
64217  64223  64231  64237  64271  64279  64283  64301  64303  64319
64327  64333  64373  64381  64399  64403  64433  64439  64451  64453
64483  64489  64499  64513  64553  64567  64577  64579  64591  64601
64609  64613  64621  64627  64633  64661  64663  64667  64679  64693
64709  64717  64747  64763  64781  64783  64793  64811  64817  64849
64853  64871  64877  64879  64891  64901  64919  64921  64927  64937
64951  64969  64997  65003  65011  65027  65029  65033  65053  65063
65071  65089  65099  65101  65111  65119  65123  65129  65141  65147
65167  65171  65173  65179  65183  65203  65213  65239  65257  65267
65269  65287  65293  65309  65323  65327  65353  65357  65371  65381
65393  65407  65413  65419  65423  65437  65447  65449  65479  65497
65519  65521  65537  65539  65543  65551  65557  65563  65579  65581
65587  65599  65609  65617  65629  65633  65647  65651  65657  65677
65687  65699  65701  65707  65713  65717  65719  65729  65731  65761
65777  65789  65809  65827  65831  65837  65839  65843  65851  65867
65881  65899  65921  65927  65929  65951  65957  65963  65981  65983
65993  66029  66037  66041  66047  66067  66071  66083  66089  66103
66107  66109  66137  66161  66169  66173  66179  66191  66221  66239
66271  66293  66301  66337  66343  66347  66359  66361  66373  66377
66383  66403  66413  66431  66449  66457  66463  66467  66491  66499
66509  66523  66529  66533  66541  66553  66569  66571  66587  66593
66601  66617  66629  66643  66653  66683  66697  66701  66713  66721
66733  66739  66749  66751  66763  66791  66797  66809  66821  66841
66851  66853  66863  66877  66883  66889  66919  66923  66931  66943
66947  66949  66959  66973  66977  67003  67021  67033  67043  67049
67057  67061  67073  67079  67103  67121  67129  67139  67141  67153
67157  67169  67181  67187  67189  67211  67213  67217  67219  67231
67247  67261  67271  67273  67289  67307  67339  67343  67349  67369
67391  67399  67409  67411  67421  67427  67429  67433  67447  67453
67477  67481  67489  67493  67499  67511  67523  67531  67537  67547
67559  67567  67577  67579  67589  67601  67607  67619  67631  67651
67679  67699  67709  67723  67733  67741  67751  67757  67759  67763
67777  67783  67789  67801  67807  67819  67829  67843  67853  67867
67883  67891  67901  67927  67931  67933  67939  67943  67957  67961
67967  67979  67987  67993  68023  68041  68053  68059  68071  68087
68099  68111  68113  68141  68147  68161  68171  68207  68209  68213
68219  68227  68239  68261  68279  68281  68311  68329  68351  68371
68389  68399  68437  68443  68447  68449  68473  68477  68483  68489
68491  68501  68507  68521  68531  68539  68543  68567  68581  68597
68611  68633  68639  68659  68669  68683  68687  68699  68711  68713
68729  68737  68743  68749  68767  68771  68777  68791  68813  68819
68821  68863  68879  68881  68891  68897  68899  68903  68909  68917
68927  68947  68963  68993  69001  69011  69019  69029  69031  69061
69067  69073  69109  69119  69127  69143  69149  69151  69163  69191
69193  69197  69203  69221  69233  69239  69247  69257  69259  69263
69313  69317  69337  69341  69371  69379  69383  69389  69401  69403
69427  69431  69439  69457  69463  69467  69473  69481  69491  69493
69497  69499  69539  69557  69593  69623  69653  69661  69677  69691
69697  69709  69737  69739  69761  69763  69767  69779  69809  69821
69827  69829  69833  69847  69857  69859  69877  69899  69911  69929
69931  69941  69959  69991  69997  70001  70003  70009  70019  70039
70051  70061  70067  70079  70099  70111  70117  70121  70123  70139
70141  70157  70163  70177  70181  70183  70199  70201  70207  70223
70229  70237  70241  70249  70271  70289  70297  70309  70313  70321
70327  70351  70373  70379  70381  70393  70423  70429  70439  70451
70457  70459  70481  70487  70489  70501  70507  70529  70537  70549
70571  70573  70583  70589  70607  70619  70621  70627  70639  70657
70663  70667  70687  70709  70717  70729  70753  70769  70783  70793
70823  70841  70843  70849  70853  70867  70877  70879  70891  70901
70913  70919  70921  70937  70949  70951  70957  70969  70979  70981
70991  70997  70999  71011  71023  71039  71059  71069  71081  71089
71119  71129  71143  71147  71153  71161  71167  71171  71191  71209
71233  71237  71249  71257  71261  71263  71287  71293  71317  71327
71329  71333  71339  71341  71347  71353  71359  71363  71387  71389
71399  71411  71413  71419  71429  71437  71443  71453  71471  71473
71479  71483  71503  71527  71537  71549  71551  71563  71569  71593
71597  71633  71647  71663  71671  71693  71699  71707  71711  71713
71719  71741  71761  71777  71789  71807  71809  71821  71837  71843
71849  71861  71867  71879  71881  71887  71899  71909  71917  71933
71941  71947  71963  71971  71983  71987  71993  71999  72019  72031
72043  72047  72053  72073  72077  72089  72091  72101  72103  72109
72139  72161  72167  72169  72173  72211  72221  72223  72227  72229
72251  72253  72269  72271  72277  72287  72307  72313  72337  72341
72353  72367  72379  72383  72421  72431  72461  72467  72469  72481
72493  72497  72503  72533  72547  72551  72559  72577  72613  72617
72623  72643  72647  72649  72661  72671  72673  72679  72689  72701
72707  72719  72727  72733  72739  72763  72767  72797  72817  72823
72859  72869  72871  72883  72889  72893  72901  72907  72911  72923
72931  72937  72949  72953  72959  72973  72977  72997  73009  73013
73019  73037  73039  73043  73061  73063  73079  73091  73121  73127
73133  73141  73181  73189  73237  73243  73259  73277  73291  73303
73309  73327  73331  73351  73361  73363  73369  73379  73387  73417
73421  73433  73453  73459  73471  73477  73483  73517  73523  73529
73547  73553  73561  73571  73583  73589  73597  73607  73609  73613
73637  73643  73651  73673  73679  73681  73693  73699  73709  73721
73727  73751  73757  73771  73783  73819  73823  73847  73849  73859
73867  73877  73883  73897  73907  73939  73943  73951  73961  73973
73999  74017  74021  74027  74047  74051  74071  74077  74093  74099
74101  74131  74143  74149  74159  74161  74167  74177  74189  74197
74201  74203  74209  74219  74231  74257  74279  74287  74293  74297
74311  74317  74323  74353  74357  74363  74377  74381  74383  74411
74413  74419  74441  74449  74453  74471  74489  74507  74509  74521
74527  74531  74551  74561  74567  74573  74587  74597  74609  74611
74623  74653  74687  74699  74707  74713  74717  74719  74729  74731
74747  74759  74761  74771  74779  74797  74821  74827  74831  74843
74857  74861  74869  74873  74887  74891  74897  74903  74923  74929
74933  74941  74959  75011  75013  75017  75029  75037  75041  75079
75083  75109  75133  75149  75161  75167  75169  75181  75193  75209
75211  75217  75223  75227  75239  75253  75269  75277  75289  75307
75323  75329  75337  75347  75353  75367  75377  75389  75391  75401
75403  75407  75431  75437  75479  75503  75511  75521  75527  75533
75539  75541  75553  75557  75571  75577  75583  75611  75617  75619
75629  75641  75653  75659  75679  75683  75689  75703  75707  75709
75721  75731  75743  75767  75773  75781  75787  75793  75797  75821
75833  75853  75869  75883  75913  75931  75937  75941  75967  75979
75983  75989  75991  75997  76001  76003  76031  76039  76079  76081
76091  76099  76103  76123  76129  76147  76157  76159  76163  76207
76213  76231  76243  76249  76253  76259  76261  76283  76289  76303
76333  76343  76367  76369  76379  76387  76403  76421  76423  76441
76463  76471  76481  76487  76493  76507  76511  76519  76537  76541
76543  76561  76579  76597  76603  76607  76631  76649  76651  76667
76673  76679  76697  76717  76733  76753  76757  76771  76777  76781
76801  76819  76829  76831  76837  76847  76871  76873  76883  76907
76913  76919  76943  76949  76961  76963  76991  77003  77017  77023
77029  77041  77047  77069  77081  77093  77101  77137  77141  77153
77167  77171  77191  77201  77213  77237  77239  77243  77249  77261
77263  77267  77269  77279  77291  77317  77323  77339  77347  77351
77359  77369  77377  77383  77417  77419  77431  77447  77471  77477
77479  77489  77491  77509  77513  77521  77527  77543  77549  77551
77557  77563  77569  77573  77587  77591  77611  77617  77621  77641
77647  77659  77681  77687  77689  77699  77711  77713  77719  77723
77731  77743  77747  77761  77773  77783  77797  77801  77813  77839
77849  77863  77867  77893  77899  77929  77933  77951  77969  77977
77983  77999  78007  78017  78031  78041  78049  78059  78079  78101
78121  78137  78139  78157  78163  78167  78173  78179  78191  78193
78203  78229  78233  78241  78259  78277  78283  78301  78307  78311
78317  78341  78347  78367  78401  78427  78437  78439  78467  78479
78487  78497  78509  78511  78517  78539  78541  78553  78569  78571
78577  78583  78593  78607  78623  78643  78649  78653  78691  78697
78707  78713  78721  78737  78779  78781  78787  78791  78797  78803
78809  78823  78839  78853  78857  78877  78887  78889  78893  78901
78919  78929  78941  78977  78979  78989  79031  79039  79043  79063
79087  79103  79111  79133  79139  79147  79151  79153  79159  79181
79187  79193  79201  79229  79231  79241  79259  79273  79279  79283
79301  79309  79319  79333  79337  79349  79357  79367  79379  79393
79397  79399  79411  79423  79427  79433  79451  79481  79493  79531
79537  79549  79559  79561  79579  79589  79601  79609  79613  79621
79627  79631  79633  79657  79669  79687  79691  79693  79697  79699
79757  79769  79777  79801  79811  79813  79817  79823  79829  79841
79843  79847  79861  79867  79873  79889  79901  79903  79907  79939

作者: ysr 时间: 2020-12-8 21:45
本帖最后由 ysr 于 2020-12-8 14:06 编辑

79940~100000之间的素数有1762个：
79943  79967  79973  79979  79987  79997  79999  80021  80039  80051
80071  80077  80107  80111  80141  80147  80149  80153  80167  80173
80177  80191  80207  80209  80221  80231  80233  80239  80251  80263
80273  80279  80287  80309  80317  80329  80341  80347  80363  80369
80387  80407  80429  80447  80449  80471  80473  80489  80491  80513
80527  80537  80557  80567  80599  80603  80611  80621  80627  80629
80651  80657  80669  80671  80677  80681  80683  80687  80701  80713
80737  80747  80749  80761  80777  80779  80783  80789  80803  80809
80819  80831  80833  80849  80863  80897  80909  80911  80917  80923
80929  80933  80953  80963  80989  81001  81013  81017  81019  81023
81031  81041  81043  81047  81049  81071  81077  81083  81097  81101
81119  81131  81157  81163  81173  81181  81197  81199  81203  81223
81233  81239  81281  81283  81293  81299  81307  81331  81343  81349
81353  81359  81371  81373  81401  81409  81421  81439  81457  81463
81509  81517  81527  81533  81547  81551  81553  81559  81563  81569
81611  81619  81629  81637  81647  81649  81667  81671  81677  81689
81701  81703  81707  81727  81737  81749  81761  81769  81773  81799
81817  81839  81847  81853  81869  81883  81899  81901  81919  81929
81931  81937  81943  81953  81967  81971  81973  82003  82007  82009
82013  82021  82031  82037  82039  82051  82067  82073  82129  82139
82141  82153  82163  82171  82183  82189  82193  82207  82217  82219
82223  82231  82237  82241  82261  82267  82279  82301  82307  82339
82349  82351  82361  82373  82387  82393  82421  82457  82463  82469
82471  82483  82487  82493  82499  82507  82529  82531  82549  82559
82561  82567  82571  82591  82601  82609  82613  82619  82633  82651
82657  82699  82721  82723  82727  82729  82757  82759  82763  82781
82787  82793  82799  82811  82813  82837  82847  82883  82889  82891
82903  82913  82939  82963  82981  82997  83003  83009  83023  83047
83059  83063  83071  83077  83089  83093  83101  83117  83137  83177
83203  83207  83219  83221  83227  83231  83233  83243  83257  83267
83269  83273  83299  83311  83339  83341  83357  83383  83389  83399
83401  83407  83417  83423  83431  83437  83443  83449  83459  83471
83477  83497  83537  83557  83561  83563  83579  83591  83597  83609
83617  83621  83639  83641  83653  83663  83689  83701  83717  83719
83737  83761  83773  83777  83791  83813  83833  83843  83857  83869
83873  83891  83903  83911  83921  83933  83939  83969  83983  83987
84011  84017  84047  84053  84059  84061  84067  84089  84121  84127
84131  84137  84143  84163  84179  84181  84191  84199  84211  84221
84223  84229  84239  84247  84263  84299  84307  84313  84317  84319
84347  84349  84377  84389  84391  84401  84407  84421  84431  84437
84443  84449  84457  84463  84467  84481  84499  84503  84509  84521
84523  84533  84551  84559  84589  84629  84631  84649  84653  84659
84673  84691  84697  84701  84713  84719  84731  84737  84751  84761
84787  84793  84809  84811  84827  84857  84859  84869  84871  84913
84919  84947  84961  84967  84977  84979  84991  85009  85021  85027
85037  85049  85061  85081  85087  85091  85093  85103  85109  85121
85133  85147  85159  85193  85199  85201  85213  85223  85229  85237
85243  85247  85259  85297  85303  85313  85331  85333  85361  85363
85369  85381  85411  85427  85429  85439  85447  85451  85453  85469
85487  85513  85517  85523  85531  85549  85571  85577  85597  85601
85607  85619  85621  85627  85639  85643  85661  85667  85669  85691
85703  85711  85717  85733  85751  85781  85793  85817  85819  85829
85831  85837  85843  85847  85853  85889  85903  85909  85931  85933
85991  85999  86011  86017  86027  86029  86069  86077  86083  86111
86113  86117  86131  86137  86143  86161  86171  86179  86183  86197
86201  86209  86239  86243  86249  86257  86263  86269  86287  86291
86293  86297  86311  86323  86341  86351  86353  86357  86369  86371
86381  86389  86399  86413  86423  86441  86453  86461  86467  86477
86491  86501  86509  86531  86533  86539  86561  86573  86579  86587
86599  86627  86629  86677  86689  86693  86711  86719  86729  86743
86753  86767  86771  86783  86813  86837  86843  86851  86857  86861
86869  86923  86927  86929  86939  86951  86959  86969  86981  86993
87011  87013  87037  87041  87049  87071  87083  87103  87107  87119
87121  87133  87149  87151  87179  87181  87187  87211  87221  87223
87251  87253  87257  87277  87281  87293  87299  87313  87317  87323
87337  87359  87383  87403  87407  87421  87427  87433  87443  87473
87481  87491  87509  87511  87517  87523  87539  87541  87547  87553
87557  87559  87583  87587  87589  87613  87623  87629  87631  87641
87643  87649  87671  87679  87683  87691  87697  87701  87719  87721
87739  87743  87751  87767  87793  87797  87803  87811  87833  87853
87869  87877  87881  87887  87911  87917  87931  87943  87959  87961
87973  87977  87991  88001  88003  88007  88019  88037  88069  88079
88093  88117  88129  88169  88177  88211  88223  88237  88241  88259
88261  88289  88301  88321  88327  88337  88339  88379  88397  88411
88423  88427  88463  88469  88471  88493  88499  88513  88523  88547
88589  88591  88607  88609  88643  88651  88657  88661  88663  88667
88681  88721  88729  88741  88747  88771  88789  88793  88799  88801
88807  88811  88813  88817  88819  88843  88853  88861  88867  88873
88883  88897  88903  88919  88937  88951  88969  88993  88997  89003
89009  89017  89021  89041  89051  89057  89069  89071  89083  89087
89101  89107  89113  89119  89123  89137  89153  89189  89203  89209
89213  89227  89231  89237  89261  89269  89273  89293  89303  89317
89329  89363  89371  89381  89387  89393  89399  89413  89417  89431
89443  89449  89459  89477  89491  89501  89513  89519  89521  89527
89533  89561  89563  89567  89591  89597  89599  89603  89611  89627
89633  89653  89657  89659  89669  89671  89681  89689  89753  89759
89767  89779  89783  89797  89809  89819  89821  89833  89839  89849
89867  89891  89897  89899  89909  89917  89923  89939  89959  89963
89977  89983  89989  90001  90007  90011  90017  90019  90023  90031
90053  90059  90067  90071  90073  90089  90107  90121  90127  90149
90163  90173  90187  90191  90197  90199  90203  90217  90227  90239
90247  90263  90271  90281  90289  90313  90353  90359  90371  90373
90379  90397  90401  90403  90407  90437  90439  90469  90473  90481
90499  90511  90523  90527  90529  90533  90547  90583  90599  90617
90619  90631  90641  90647  90659  90677  90679  90697  90703  90709
90731  90749  90787  90793  90803  90821  90823  90833  90841  90847
90863  90887  90901  90907  90911  90917  90931  90947  90971  90977
90989  90997  91009  91019  91033  91079  91081  91097  91099  91121
91127  91129  91139  91141  91151  91153  91159  91163  91183  91193
91199  91229  91237  91243  91249  91253  91283  91291  91297  91303
91309  91331  91367  91369  91373  91381  91387  91393  91397  91411
91423  91433  91453  91457  91459  91463  91493  91499  91513  91529
91541  91571  91573  91577  91583  91591  91621  91631  91639  91673
91691  91703  91711  91733  91753  91757  91771  91781  91801  91807
91811  91813  91823  91837  91841  91867  91873  91909  91921  91939
91943  91951  91957  91961  91967  91969  91997  92003  92009  92033
92041  92051  92077  92083  92107  92111  92119  92143  92153  92173
92177  92179  92189  92203  92219  92221  92227  92233  92237  92243
92251  92269  92297  92311  92317  92333  92347  92353  92357  92363
92369  92377  92381  92383  92387  92399  92401  92413  92419  92431
92459  92461  92467  92479  92489  92503  92507  92551  92557  92567
92569  92581  92593  92623  92627  92639  92641  92647  92657  92669
92671  92681  92683  92693  92699  92707  92717  92723  92737  92753
92761  92767  92779  92789  92791  92801  92809  92821  92831  92849
92857  92861  92863  92867  92893  92899  92921  92927  92941  92951
92957  92959  92987  92993  93001  93047  93053  93059  93077  93083
93089  93097  93103  93113  93131  93133  93139  93151  93169  93179
93187  93199  93229  93239  93241  93251  93253  93257  93263  93281
93283  93287  93307  93319  93323  93329  93337  93371  93377  93383
93407  93419  93427  93463  93479  93481  93487  93491  93493  93497
93503  93523  93529  93553  93557  93559  93563  93581  93601  93607
93629  93637  93683  93701  93703  93719  93739  93761  93763  93787
93809  93811  93827  93851  93871  93887  93889  93893  93901  93911
93913  93923  93937  93941  93949  93967  93971  93979  93983  93997
94007  94009  94033  94049  94057  94063  94079  94099  94109  94111
94117  94121  94151  94153  94169  94201  94207  94219  94229  94253
94261  94273  94291  94307  94309  94321  94327  94331  94343  94349
94351  94379  94397  94399  94421  94427  94433  94439  94441  94447
94463  94477  94483  94513  94529  94531  94541  94543  94547  94559
94561  94573  94583  94597  94603  94613  94621  94649  94651  94687
94693  94709  94723  94727  94747  94771  94777  94781  94789  94793
94811  94819  94823  94837  94841  94847  94849  94873  94889  94903
94907  94933  94949  94951  94961  94993  94999  95003  95009  95021
95027  95063  95071  95083  95087  95089  95093  95101  95107  95111
95131  95143  95153  95177  95189  95191  95203  95213  95219  95231
95233  95239  95257  95261  95267  95273  95279  95287  95311  95317
95327  95339  95369  95383  95393  95401  95413  95419  95429  95441
95443  95461  95467  95471  95479  95483  95507  95527  95531  95539
95549  95561  95569  95581  95597  95603  95617  95621  95629  95633
95651  95701  95707  95713  95717  95723  95731  95737  95747  95773
95783  95789  95791  95801  95803  95813  95819  95857  95869  95873
95881  95891  95911  95917  95923  95929  95947  95957  95959  95971
95987  95989  96001  96013  96017  96043  96053  96059  96079  96097
96137  96149  96157  96167  96179  96181  96199  96211  96221  96223
96233  96259  96263  96269  96281  96289  96293  96323  96329  96331
96337  96353  96377  96401  96419  96431  96443  96451  96457  96461
96469  96479  96487  96493  96497  96517  96527  96553  96557  96581
96587  96589  96601  96643  96661  96667  96671  96697  96703  96731
96737  96739  96749  96757  96763  96769  96779  96787  96797  96799
96821  96823  96827  96847  96851  96857  96893  96907  96911  96931
96953  96959  96973  96979  96989  96997  97001  97003  97007  97021
97039  97073  97081  97103  97117  97127  97151  97157  97159  97169
97171  97177  97187  97213  97231  97241  97259  97283  97301  97303
97327  97367  97369  97373  97379  97381  97387  97397  97423  97429
97441  97453  97459  97463  97499  97501  97511  97523  97547  97549
97553  97561  97571  97577  97579  97583  97607  97609  97613  97649
97651  97673  97687  97711  97729  97771  97777  97787  97789  97813
97829  97841  97843  97847  97849  97859  97861  97871  97879  97883
97919  97927  97931  97943  97961  97967  97973  97987  98009  98011
98017  98041  98047  98057  98081  98101  98123  98129  98143  98179
98207  98213  98221  98227  98251  98257  98269  98297  98299  98317
98321  98323  98327  98347  98369  98377  98387  98389  98407  98411
98419  98429  98443  98453  98459  98467  98473  98479  98491  98507
98519  98533  98543  98561  98563  98573  98597  98621  98627  98639
98641  98663  98669  98689  98711  98713  98717  98729  98731  98737
98773  98779  98801  98807  98809  98837  98849  98867  98869  98873
98887  98893  98897  98899  98909  98911  98927  98929  98939  98947
98953  98963  98981  98993  98999  99013  99017  99023  99041  99053
99079  99083  99089  99103  99109  99119  99131  99133  99137  99139
99149  99173  99181  99191  99223  99233  99241  99251  99257  99259
99277  99289  99317  99347  99349  99367  99371  99377  99391  99397
99401  99409  99431  99439  99469  99487  99497  99523  99527  99529
99551  99559  99563  99571  99577  99581  99607  99611  99623  99643
99661  99667  99679  99689  99707  99709  99713  99719  99721  99733
99761  99767  99787  99793  99809  99817  99823  99829  99833  99839
99859  99871  99877  99881  99901  99907  99923  99929  99961  99971
99989  99991

作者: ysr 时间: 2020-12-8 21:48
30~100000之间的素数有9582个：
31  37  41  43  47  53  59  61  67  71
73  79  83  89  97  101  103  107  109  113
127  131  137  139  149  151  157  163  167  173
179  181  191  193  197  199  211  223  227  229
233  239  241  251  257  263  269  271  277  281
283  293  307  311  313  317  331  337  347  349
353  359  367  373  379  383  389  397  401  409
419  421  431  433  439  443  449  457  461  463
467  479  487  491  499  503  509  521  ……后面的不发了

作者: ysr 时间: 2020-12-8 22:11
本帖最后由 ysr 于 2021-8-20 14:17 编辑

下面是程序代码：
Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
b(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   b(J) = 99
   Else
   b(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(b(J), MbC(Trim(js), 200)), b(J))) = -1

   b(J) = b(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(J)), b(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(b(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, b() As String
ReDim a(4 To 4 * x + 4)
ReDim b(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  b(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While a(J) = b(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(b(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(b(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim a() As String
   ReDim a(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim b() As String
   JW = 0
   ReDim b(1 To x)
   For J = 1 To x Step 1
b(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(b(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & b(r)
      Else
      CJ = CJ & b(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, b() As String

  ReDim a(1 To x)
  ReDim b(1 To Y)
  For I = 1 To x
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  b(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If

End If


  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, Y '两数长度
x = Len(D1): Y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, J, 1) '每位数
For I = x To 1 Step -1 'D1
  C1 = Mid$(D1, I, 1) '每位数
  CJ = C1 * C2 + JW '计算乘积
  c = I + J: r = Y + 1 - J
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + Y)
JW = 0
For I = x + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + a(I, J)
Next
b(I) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For I = 2 To x + Y
MbC = MbC & b(I)
Next
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid(D4, J, 1) ';每位数
For I = x To 1 Step -1  ';D1
a(I) = Mid(d3, I, 1) ';每位数
C1(I) = 10 + a(I) - B1(I) - 1 + JW ';计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
If Not Mid(MPC, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next


End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, Y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
B1(J) = Mid$(D4, J, 1) '每位数
For I = x To 1 Step -1  'D1
a(I) = Mid$(d3, I, 1) '每位数
C1(I) = a(I) + B1(I) + JW '计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next

End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then

  If Val(a) > Val(b) Then
   c = a
   d = b
  Else
   c = b
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   b = a * s + b
   c = c
   d = c * s + d
   Else
   b = b
   a = a + b * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (a + b) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

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

作者: ysr 时间: 2020-12-8 22:12
本帖最后由 ysr 于 2021-8-20 14:19 编辑

下面是程序代码：
Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
b(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   b(J) = 99
   Else
   b(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(b(J), MbC(Trim(js), 200)), b(J))) = -1

   b(J) = b(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(J)), b(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(b(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, b() As String
ReDim a(4 To 4 * x + 4)
ReDim b(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  b(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While a(J) = b(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(b(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(b(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim a() As String
   ReDim a(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim b() As String
   JW = 0
   ReDim b(1 To x)
   For J = 1 To x Step 1
b(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(b(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & b(r)
      Else
      CJ = CJ & b(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, b() As String

  ReDim a(1 To x)
  ReDim b(1 To Y)
  For I = 1 To x
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  b(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If

End If


  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, Y '两数长度
x = Len(D1): Y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, J, 1) '每位数
For I = x To 1 Step -1 'D1
  C1 = Mid$(D1, I, 1) '每位数
  CJ = C1 * C2 + JW '计算乘积
  c = I + J: r = Y + 1 - J
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + Y)
JW = 0
For I = x + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + a(I, J)
Next
b(I) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For I = 2 To x + Y
MbC = MbC & b(I)
Next
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid(D4, J, 1) ';每位数
For I = x To 1 Step -1  ';D1
a(I) = Mid(d3, I, 1) ';每位数
C1(I) = 10 + a(I) - B1(I) - 1 + JW ';计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
If Not Mid(MPC, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next


End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, Y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
B1(J) = Mid$(D4, J, 1) '每位数
For I = x To 1 Step -1  'D1
a(I) = Mid$(d3, I, 1) '每位数
C1(I) = a(I) + B1(I) + JW '计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next

End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then

  If Val(a) > Val(b) Then
   c = a
   d = b
  Else
   c = b
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   b = a * s + b
   c = c
   d = c * s + d
   Else
   b = b
   a = a + b * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (a + b) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 5 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

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

作者: ysr 时间: 2020-12-8 23:14
明白了，程序中有一条:如果输入的是偶数就会直接加1变成奇数，对偶数是不做判断的，所以不会筛选出2的，就是输出的素数表中没有2的，仅仅是奇素数。唯独没有2的。

作者: ysr 时间: 2020-12-9 08:56
本帖最后由 ysr 于 2021-8-20 14:20 编辑

1~30之间的素数有10个：
2  3  5  7  11  13  17  19  23  29
这回程序可以输出2了，为此加了好几条程序语句，代码如下：
Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

a(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
JW = Val(a(4) & a(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", a(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
b(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   b(J) = 99
   Else
   b(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(b(J), MbC(Trim(js), 200)), b(J))) = -1

   b(J) = b(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(J)), b(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(b(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim a() As String, b() As String
ReDim a(4 To 4 * x + 4)
ReDim b(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  a(I) = Mid(D1, Len(D1) - I + 1, 4)
  b(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While a(J) = b(J) And J >= 8

  J = J - 4
   Loop


If Val(a(J)) - Val(b(J)) > 0 Then
MBJC = 1
Else
If Val(a(J)) - Val(b(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim a() As String
   ReDim a(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   a(I) = Mid(D1, I, 1)


   Next I
   Dim b() As String
   JW = 0
   ReDim b(1 To x)
   For J = 1 To x Step 1
b(J) = Val(JW & a(J)) \ Val(D2)
   JW = Val(JW & a(J)) - Val(b(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & b(r)
      Else
      CJ = CJ & b(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strtmp = Mid(MCC, I)
If Len(strtmp) = 0 Then
MCC = "0"
Else
MCC = strtmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim a() As String, b() As String

  ReDim a(1 To x)
  ReDim b(1 To Y)
  For I = 1 To x
  a(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  b(J) = Mid(D2, J, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & a(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & a(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & a(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & a(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & a(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MCC1, I)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
End If

End If


  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, Y '两数长度
x = Len(D1): Y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + Y, 1 To Y)
Dim I, J, C1, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, J, 1) '每位数
For I = x To 1 Step -1 'D1
  C1 = Mid$(D1, I, 1) '每位数
  CJ = C1 * C2 + JW '计算乘积
  c = I + J: r = Y + 1 - J
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + Y)
JW = 0
For I = x + Y To 1 Step -1
Bit = JW
For J = 1 To Y
  Bit = Bit + a(I, J)
Next
b(I) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For I = 2 To x + Y
MbC = MbC & b(I)
Next
End Function

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, Y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(J) = Mid(D4, J, 1) ';每位数
For I = x To 1 Step -1  ';D1
a(I) = Mid(d3, I, 1) ';每位数
C1(I) = 10 + a(I) - B1(I) - 1 + JW ';计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For I = 1 To Len(MPC)
If Not Mid(MPC, I, 1) = "0" Then
      Exit For
End If
Next
strtmp = Mid(MPC, I)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next


End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, Y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
d3 = D1
Else
D4 = D2
d3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(d3): Y = Len(D4)
Dim a() As Integer, B1() As Integer, C1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To Y)
ReDim C1(1 To x)
ReDim E1(1 To x)
Dim I, J, C2, CJ, JW
For J = Y To 1 Step -1 'D2
JW = 0 '进位清0
B1(J) = Mid$(D4, J, 1) '每位数
For I = x To 1 Step -1  'D1
a(I) = Mid$(d3, I, 1) '每位数
C1(I) = a(I) + B1(I) + JW '计算jia
JW = C1(I) \ 10
E1(I) = C1(I) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next

End Function

Private Function zzxc(sa As String, sb As String) As String
Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then

  If Val(a) > Val(b) Then
   c = a
   d = b
  Else
   c = b
   d = a
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   a = a
   b = a * s + b
   c = c
   d = c * s + d
   Else
   b = b
   a = a + b * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (a + b) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
a = Mid(a, 2)
Loop

  End If

  qniyuan = a
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
Do While MBJC(Trim(n), 3) < 0
If MBJC(Trim(n), 2) = 0 Then
m1 = m1 & n & "  "
s = s + 1
Else
m1 = m1
End If
n = n + 1
Loop
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

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

作者: ysr 时间: 2020-12-9 09:01
1~19991之间的素数有2260个：
2  3  5  7  11  13  17  19  23  29
31  37  41  43  47  53  59  61  67  71
73  79  83  89  97  101  103  107  109  113
127  131  137  139  149  151  157  163  167  173
179  181  191  193  197  199  211  223  227  229
233  239  241  251  257  263  269  271  277  281
283  293  307  311  313  317  331  337  347  349
353  359  367  373  379  383  389  397  401  409
419  421  431  433  439  443  449  457  461  463
467  479  487  491  499  503  509  521  523  541
547  557  563  569  571  577  587  593  599  601
607  613  617  619  631  641  643  647  653  659
661  673  677  683  691  701  709  719  727  733
739  743  751  757  761  769  773  787  797  809
811  821  823  827  829  839  853  857  859  863
877  881  883  887  907  911  919  929  937  941
947  953  967  971  977  983  991  997  1009  1013
1019  1021  1031  1033  1039  1049  1051  1061  1063  1069
1087  1091  1093  1097  1103  1109  1117  1123  1129  1151
1153  1163  1171  1181  1187  1193  1201  1213  1217  1223
1229  1231  1237  1249  1259  1277  1279  1283  1289  1291
1297  1301  1303  1307  1319  1321  1327  1361  1367  1373
1381  1399  1409  1423  1427  1429  1433  1439  1447  1451
1453  1459  1471  1481  1483  1487  1489  1493  1499  1511
1523  1531  1543  1549  1553  1559  1567  1571  1579  1583
1597  1601  1607  1609  1613  1619  1621  1627  1637  1657
1663  1667  1669  1693  1697  1699  1709  1721  1723  1733
1741  1747  1753  1759  1777  1783  1787  1789  1801  1811
1823  1831  1847  1861  1867  1871  1873  1877  1879  1889
1901  1907  1913  1931  1933  1949  1951  1973  1979  1987
1993  1997  1999  2003  2011  2017  2027  2029  2039  2053
2063  2069  2081  2083  2087  2089  2099  2111  2113  2129
2131  2137  2141  2143  2153  2161  2179  2203  2207  2213
2221  2237  2239  2243  2251  2267  2269  2273  2281  2287
2293  2297  2309  2311  2333  2339  2341  2347  2351  2357
2371  2377  2381  2383  2389  2393  2399  2411  2417  2423
2437  2441  2447  2459  2467  2473  2477  2503  2521  2531
2539  2543  2549  2551  2557  2579  2591  2593  2609  2617
2621  2633  2647  2657  2659  2663  2671  2677  2683  2687
2689  2693  2699  2707  2711  2713  2719  2729  2731  2741
2749  2753  2767  2777  2789  2791  2797  2801  2803  2819
2833  2837  2843  2851  2857  2861  2879  2887  2897  2903
2909  2917  2927  2939  2953  2957  2963  2969  2971  2999
3001  3011  3019  3023  3037  3041  3049  3061  3067  3079
3083  3089  3109  3119  3121  3137  3163  3167  3169  3181
3187  3191  3203  3209  3217  3221  3229  3251  3253  3257
3259  3271  3299  3301  3307  3313  3319  3323  3329  3331
3343  3347  3359  3361  3371  3373  3389  3391  3407  3413
3433  3449  3457  3461  3463  3467  3469  3491  3499  3511
3517  3527  3529  3533  3539  3541  3547  3557  3559  3571
3581  3583  3593  3607  3613  3617  3623  3631  3637  3643
3659  3671  3673  3677  3691  3697  3701  3709  3719  3727
3733  3739  3761  3767  3769  3779  3793  3797  3803  3821
3823  3833  3847  3851  3853  3863  3877  3881  3889  3907
3911  3917  3919  3923  3929  3931  3943  3947  3967  3989
4001  4003  4007  4013  4019  4021  4027  4049  4051  4057
4073  4079  4091  4093  4099  4111  4127  4129  4133  4139
4153  4157  4159  4177  4201  4211  4217  4219  4229  4231
4241  4243  4253  4259  4261  4271  4273  4283  4289  4297
4327  4337  4339  4349  4357  4363  4373  4391  4397  4409
4421  4423  4441  4447  4451  4457  4463  4481  4483  4493
4507  4513  4517  4519  4523  4547  4549  4561  4567  4583
4591  4597  4603  4621  4637  4639  4643  4649  4651  4657
4663  4673  4679  4691  4703  4721  4723  4729  4733  4751
4759  4783  4787  4789  4793  4799  4801  4813  4817  4831
4861  4871  4877  4889  4903  4909  4919  4931  4933  4937
4943  4951  4957  4967  4969  4973  4987  4993  4999  5003
5009  5011  5021  5023  5039  5051  5059  5077  5081  5087
5099  5101  5107  5113  5119  5147  5153  5167  5171  5179
5189  5197  5209  5227  5231  5233  5237  5261  5273  5279
5281  5297  5303  5309  5323  5333  5347  5351  5381  5387
5393  5399  5407  5413  5417  5419  5431  5437  5441  5443
5449  5471  5477  5479  5483  5501  5503  5507  5519  5521
5527  5531  5557  5563  5569  5573  5581  5591  5623  5639
5641  5647  5651  5653  5657  5659  5669  5683  5689  5693
5701  5711  5717  5737  5741  5743  5749  5779  5783  5791
5801  5807  5813  5821  5827  5839  5843  5849  5851  5857
5861  5867  5869  5879  5881  5897  5903  5923  5927  5939
5953  5981  5987  6007  6011  6029  6037  6043  6047  6053
6067  6073  6079  6089  6091  6101  6113  6121  6131  6133
6143  6151  6163  6173  6197  6199  6203  6211  6217  6221
6229  6247  6257  6263  6269  6271  6277  6287  6299  6301
6311  6317  6323  6329  6337  6343  6353  6359  6361  6367
6373  6379  6389  6397  6421  6427  6449  6451  6469  6473
6481  6491  6521  6529  6547  6551  6553  6563  6569  6571
6577  6581  6599  6607  6619  6637  6653  6659  6661  6673
6679  6689  6691  6701  6703  6709  6719  6733  6737  6761
6763  6779  6781  6791  6793  6803  6823  6827  6829  6833
6841  6857  6863  6869  6871  6883  6899  6907  6911  6917
6947  6949  6959  6961  6967  6971  6977  6983  6991  6997
7001  7013  7019  7027  7039  7043  7057  7069  7079  7103
7109  7121  7127  7129  7151  7159  7177  7187  7193  7207
7211  7213  7219  7229  7237  7243  7247  7253  7283  7297
7307  7309  7321  7331  7333  7349  7351  7369  7393  7411
7417  7433  7451  7457  7459  7477  7481  7487  7489  7499
7507  7517  7523  7529  7537  7541  7547  7549  7559  7561
7573  7577  7583  7589  7591  7603  7607  7621  7639  7643
7649  7669  7673  7681  7687  7691  7699  7703  7717  7723
7727  7741  7753  7757  7759  7789  7793  7817  7823  7829
7841  7853  7867  7873  7877  7879  7883  7901  7907  7919
7927  7933  7937  7949  7951  7963  7993  8009  8011  8017
8039  8053  8059  8069  8081  8087  8089  8093  8101  8111
8117  8123  8147  8161  8167  8171  8179  8191  8209  8219
8221  8231  8233  8237  8243  8263  8269  8273  8287  8291
8293  8297  8311  8317  8329  8353  8363  8369  8377  8387
8389  8419  8423  8429  8431  8443  8447  8461  8467  8501
8513  8521  8527  8537  8539  8543  8563  8573  8581  8597
8599  8609  8623  8627  8629  8641  8647  8663  8669  8677
8681  8689  8693  8699  8707  8713  8719  8731  8737  8741
8747  8753  8761  8779  8783  8803  8807  8819  8821  8831
8837  8839  8849  8861  8863  8867  8887  8893  8923  8929
8933  8941  8951  8963  8969  8971  8999  9001  9007  9011
9013  9029  9041  9043  9049  9059  9067  9091  9103  9109
9127  9133  9137  9151  9157  9161  9173  9181  9187  9199
9203  9209  9221  9227  9239  9241  9257  9277  9281  9283
9293  9311  9319  9323  9337  9341  9343  9349  9371  9377
9391  9397  9403  9413  9419  9421  9431  9433  9437  9439
9461  9463  9467  9473  9479  9491  9497  9511  9521  9533
9539  9547  9551  9587  9601  9613  9619  9623  9629  9631
9643  9649  9661  9677  9679  9689  9697  9719  9721  9733
9739  9743  9749  9767  9769  9781  9787  9791  9803  9811
9817  9829  9833  9839  9851  9857  9859  9871  9883  9887
9901  9907  9923  9929  9931  9941  9949  9967  9973  10007
10009  10037  10039  10061  10067  10069  10079  10091  10093  10099
10103  10111  10133  10139  10141  10151  10159  10163  10169  10177
10181  10193  10211  10223  10243  10247  10253  10259  10267  10271
10273  10289  10301  10303  10313  10321  10331  10333  10337  10343
10357  10369  10391  10399  10427  10429  10433  10453  10457  10459
10463  10477  10487  10499  10501  10513  10529  10531  10559  10567
10589  10597  10601  10607  10613  10627  10631  10639  10651  10657
10663  10667  10687  10691  10709  10711  10723  10729  10733  10739
10753  10771  10781  10789  10799  10831  10837  10847  10853  10859
10861  10867  10883  10889  10891  10903  10909  10937  10939  10949
10957  10973  10979  10987  10993  11003  11027  11047  11057  11059
11069  11071  11083  11087  11093  11113  11117  11119  11131  11149
11159  11161  11171  11173  11177  11197  11213  11239  11243  11251
11257  11261  11273  11279  11287  11299  11311  11317  11321  11329
11351  11353  11369  11383  11393  11399  11411  11423  11437  11443
11447  11467  11471  11483  11489  11491  11497  11503  11519  11527
11549  11551  11579  11587  11593  11597  11617  11621  11633  11657
11677  11681  11689  11699  11701  11717  11719  11731  11743  11777
11779  11783  11789  11801  11807  11813  11821  11827  11831  11833
11839  11863  11867  11887  11897  11903  11909  11923  11927  11933
11939  11941  11953  11959  11969  11971  11981  11987  12007  12011
12037  12041  12043  12049  12071  12073  12097  12101  12107  12109
12113  12119  12143  12149  12157  12161  12163  12197  12203  12211
12227  12239  12241  12251  12253  12263  12269  12277  12281  12289
12301  12323  12329  12343  12347  12373  12377  12379  12391  12401
12409  12413  12421  12433  12437  12451  12457  12473  12479  12487
12491  12497  12503  12511  12517  12527  12539  12541  12547  12553
12569  12577  12583  12589  12601  12611  12613  12619  12637  12641
12647  12653  12659  12671  12689  12697  12703  12713  12721  12739
12743  12757  12763  12781  12791  12799  12809  12821  12823  12829
12841  12853  12889  12893  12899  12907  12911  12917  12919  12923
12941  12953  12959  12967  12973  12979  12983  13001  13003  13007
13009  13033  13037  13043  13049  13063  13093  13099  13103  13109
13121  13127  13147  13151  13159  13163  13171  13177  13183  13187
13217  13219  13229  13241  13249  13259  13267  13291  13297  13309
13313  13327  13331  13337  13339  13367  13381  13397  13399  13411
13417  13421  13441  13451  13457  13463  13469  13477  13487  13499
13513  13523  13537  13553  13567  13577  13591  13597  13613  13619
13627  13633  13649  13669  13679  13681  13687  13691  13693  13697
13709  13711  13721  13723  13729  13751  13757  13759  13763  13781
13789  13799  13807  13829  13831  13841  13859  13873  13877  13879
13883  13901  13903  13907  13913  13921  13931  13933  13963  13967
13997  13999  14009  14011  14029  14033  14051  14057  14071  14081
14083  14087  14107  14143  14149  14153  14159  14173  14177  14197
14207  14221  14243  14249  14251  14281  14293  14303  14321  14323
14327  14341  14347  14369  14387  14389  14401  14407  14411  14419
14423  14431  14437  14447  14449  14461  14479  14489  14503  14519
14533  14537  14543  14549  14551  14557  14561  14563  14591  14593
14621  14627  14629  14633  14639  14653  14657  14669  14683  14699
14713  14717  14723  14731  14737  14741  14747  14753  14759  14767
14771  14779  14783  14797  14813  14821  14827  14831  14843  14851
14867  14869  14879  14887  14891  14897  14923  14929  14939  14947
14951  14957  14969  14983  15013  15017  15031  15053  15061  15073
15077  15083  15091  15101  15107  15121  15131  15137  15139  15149
15161  15173  15187  15193  15199  15217  15227  15233  15241  15259
15263  15269  15271  15277  15287  15289  15299  15307  15313  15319
15329  15331  15349  15359  15361  15373  15377  15383  15391  15401
15413  15427  15439  15443  15451  15461  15467  15473  15493  15497
15511  15527  15541  15551  15559  15569  15581  15583  15601  15607
15619  15629  15641  15643  15647  15649  15661  15667  15671  15679
15683  15727  15731  15733  15737  15739  15749  15761  15767  15773
15787  15791  15797  15803  15809  15817  15823  15859  15877  15881
15887  15889  15901  15907  15913  15919  15923  15937  15959  15971
15973  15991  16001  16007  16033  16057  16061  16063  16067  16069
16073  16087  16091  16097  16103  16111  16127  16139  16141  16183
16187  16189  16193  16217  16223  16229  16231  16249  16253  16267
16273  16301  16319  16333  16339  16349  16361  16363  16369  16381
16411  16417  16421  16427  16433  16447  16451  16453  16477  16481
16487  16493  16519  16529  16547  16553  16561  16567  16573  16603
16607  16619  16631  16633  16649  16651  16657  16661  16673  16691
16693  16699  16703  16729  16741  16747  16759  16763  16787  16811
16823  16829  16831  16843  16871  16879  16883  16889  16901  16903
16921  16927  16931  16937  16943  16963  16979  16981  16987  16993
17011  17021  17027  17029  17033  17041  17047  17053  17077  17093
17099  17107  17117  17123  17137  17159  17167  17183  17189  17191
17203  17207  17209  17231  17239  17257  17291  17293  17299  17317
17321  17327  17333  17341  17351  17359  17377  17383  17387  17389
17393  17401  17417  17419  17431  17443  17449  17467  17471  17477
17483  17489  17491  17497  17509  17519  17539  17551  17569  17573
17579  17581  17597  17599  17609  17623  17627  17657  17659  17669
17681  17683  17707  17713  17729  17737  17747  17749  17761  17783
17789  17791  17807  17827  17837  17839  17851  17863  17881  17891
17903  17909  17911  17921  17923  17929  17939  17957  17959  17971
17977  17981  17987  17989  18013  18041  18043  18047  18049  18059
18061  18077  18089  18097  18119  18121  18127  18131  18133  18143
18149  18169  18181  18191  18199  18211  18217  18223  18229  18233
18251  18253  18257  18269  18287  18289  18301  18307  18311  18313
18329  18341  18353  18367  18371  18379  18397  18401  18413  18427
18433  18439  18443  18451  18457  18461  18481  18493  18503  18517
18521  18523  18539  18541  18553  18583  18587  18593  18617  18637
18661  18671  18679  18691  18701  18713  18719  18731  18743  18749
18757  18773  18787  18793  18797  18803  18839  18859  18869  18899
18911  18913  18917  18919  18947  18959  18973  18979  19001  19009
19013  19031  19037  19051  19069  19073  19079  19081  19087  19121
19139  19141  19157  19163  19181  19183  19207  19211  19213  19219
19231  19237  19249  19259  19267  19273  19289  19301  19309  19319
19333  19373  19379  19381  19387  19391  19403  19417  19421  19423
19427  19429  19433  19441  19447  19457  19463  19469  19471  19477
19483  19489  19501  19507  19531  19541  19543  19553  19559  19571
19577  19583  19597  19603  19609  19661  19681  19687  19697  19699
19709  19717  19727  19739  19751  19753  19759  19763  19777  19793
19801  19813  19819  19841  19843  19853  19861  19867  19889  19891
19913  19919  19927  19937  19949  19961  19963  19973  19979  19991

作者: ysr 时间: 2021-1-4 11:26
我的关于大整数的加减乘除可调用程序，都是模仿手工计算的，速度慢，效率太低。

作者: ysr 时间: 2021-2-1 21:34
本帖最后由 ysr 于 2021-8-20 15:07 编辑

把这个筛选素数压缩文件传一下，是从Text1 算到Text2的:

作者: ysr 时间: 2021-2-3 16:00
314261~314263之间的素数有2个：
314261 314263

作者: ysr 时间: 2021-2-3 20:36
1与100之间的素数打头有2组差为2和22和2的4生素数对:
/5/7/29/31
/17/19/41/43
1与100之间的素数打头有3组差为2和10和2的4生素数对:
/5/7/17/19
/17/19/29/31
/59/61/71/73

作者: ysr 时间: 2021-2-3 22:37
1与1000之间的素数打头有4组差为2和22和2的4生素数对:
/5/7/29/31
/17/19/41/43
/617/619/641/643
/857/859/881/883
1与1000之间的素数打头有9组差为2和10和2的4生素数对:
/5/7/17/19
/17/19/29/31
/59/61/71/73
/137/139/149/151
/179/181/191/193
/227/229/239/241
/269/271/281/283
/809/811/821/823
/1019/1021/1031/1033

作者: ysr 时间: 2021-4-4 12:55
本帖最后由 ysr 于 2021-4-17 10:50 编辑

10000000000~10000000100之间的素数有5个：（用时1.84375秒）
10000000019  10000000033  10000000061  10000000069  10000000097 .
再次修改了一下，程序速度有所提高，代码重发如下：

Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqyushu = 0
Else
zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
End If

End Function

Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
zhengchuqy = sa
Else
zhengchuqy = Left(sa, InStr(sa, "/") - 1)
End If

End Function

Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
jss = Int(Sqr(D1))
JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
End If
Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim A() As String
ReDim A(4 To 4 * x + 4)
Dim B() As String
ReDim B(2 To 2 * x)
Dim I, J, js
  For I = 4 To 4 * x + 4 Step 4

A(I) = Mid(D2, I - 3, 4)
js = Int(Sqr(Val(A(4) & A(8))))
JW = Val(A(4) & A(8)) - (js) ^ 2
Next
J = 4
Do While J <= 2 * x

jws = MPC1(JW & "0000", A(2 * J + 4))
If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
B(J) = "00"
Else
jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
If Len(jwc) > 2 Then
   B(J) = 99
   Else
   B(J) = jwc
   End If


   Do While MBJC(Trim(jws), MbC(MPC1(B(J), MbC(Trim(js), 200)), B(J))) = -1

   B(J) = B(J) - 1

            Loop
      End If
      JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), B(J)), B(J)))

   js = MPC1(MbC(Trim(js), 100), Trim(B(J)))


J = J + 2
If JW = 0 Then

MBBC = js
Else
MBBC = js & "/" & JW
End If
Loop

End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
Dim x, Y
x = Len(D1) \ 4: Y = Len(D2) \ 4
Dim A() As String, B() As String
ReDim A(4 To 4 * x + 4)
ReDim B(4 To 4 * Y + 4)
If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * Y)) Then
  MBJC = -1
  Else
  For I = 4 To 4 * x Step 4
  A(I) = Mid(D1, Len(D1) - I + 1, 4)
  B(I) = Mid(D2, Len(D2) - I + 1, 4)
  Next
  J = 4 * x
  Do While A(J) = B(J) And J >= 8

  J = J - 4
   Loop


If Val(A(J)) - Val(B(J)) > 0 Then
MBJC = 1
Else
If Val(A(J)) - Val(B(J)) < 0 Then
MBJC = -1
Else
MBJC = 0
End If

  End If



End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
MCC = "0" & "/" & D1
Else
If Len(D1) < 9 Then
MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
   If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
Else
MCC = MCC
End If

Else

Dim x ';fen duan changdu
x = Len(D1)



   Dim A() As String
   ReDim A(1 To x)  ';定义数组的储存空间
   For I = 1 To x Step 1  ';把被除数各位放在a()中
   A(I) = Mid(D1, I, 1)


   Next I
   Dim B() As String
   JW = 0
   ReDim B(1 To x)
   For J = 1 To x Step 1
B(J) = Val(JW & A(J)) \ Val(D2)
   JW = Val(JW & A(J)) - Val(B(J)) * Val(D2)
   Next J
   For r = 1 To x
   If JW = 0 Then
      MCC = MCC & B(r)
      Else
      CJ = CJ & B(r)
      MCC = CJ & "/" & JW

End If

For I = 1 To Len(MCC)
If Not Mid(MCC, I, 1) = "0" Then
   Exit For
End If
Next
strTmp = Mid(MCC, I)
If Len(strTmp) = 0 Then
MCC = "0"
Else
MCC = strTmp
End If

Next

End If

   End If

End Function

Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
ss = MBJC(D1, D2)
If ss = -1 Then
MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
MCC1 = 1
Else
If Len(D1) = Len(D2) Then
   s = Val(Left(D1, 1)) \ Val(Left(D2, 1))

Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
MCC1 = s
Else
MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))

End If
Else
If Len(D2) < 9 Then
   MCC1 = MCC(D1, D2)
   Else
Dim x, Y ';定义分段长度
x = Len(D1): Y = Len(D2)

Dim JW, jcc, jss, jcs

  Dim A() As String, B() As String

  ReDim A(1 To x)
  ReDim B(1 To Y)
  For I = 1 To x
  A(I) = Mid(D1, I, 1)
  Next
  For J = 1 To Y
  B(J) = Mid(D2, J, 1)
  Next
  jcc = Val(A(1) & A(2)) \ Val(B(1) & B(2))



  jss = MbC(Trim(jcc), D2)
For i1 = 1 To Y
jws = jws & A(i1)
   Next

   Do While MBJC(Trim(jws), Trim(jss)) = -1
   jcc = jcc - 1
   jss = MbC(Trim(jcc), D2)
   Loop
  JW = MPC(Trim(jws), Trim(jss))

z = x - Y

Dim c() As String
ReDim c(1 To z)
For s = 1 To z
   If MBJC(JW & A(s + Y), D2) = -1 Then
   c(s) = "0"
   Else
   jwc = Val(Left(JW & A(s + Y), 3)) \ Val(Left(D2, 2))
   If Len(jwc) > 1 Then
   c(s) = "9"
   Else
      c(s) = jwc
      End If

   Do While MBJC(JW & A(s + Y), MbC(Val(c(s)), D2)) = -1
c(s) = Right(10000 + Val(c(s) - 1), 1)
   Loop
   End If

   JW = MPC(JW & A(s + Y), MbC(Val(c(s)), D2))

jcc = jcc & c(s)
Next s
If JW = 0 Then
MCC1 = jcc
Else
MCC1 = jcc & "/" & JW
End If

  For I = 1 To Len(MCC1)
If Not Mid(MCC1, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(MCC1, I)
  If Len(strTmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strTmp
End If

End If


  End If
End If
End If
End Function

      Public Function MbC(D1 As String, D2 As String) As String
Dim j1&, j2&, e&, d&, E1&

' 按列法计算C=A*B
m = Trim(D1): n = Trim(D2)
x = Len(m) \ 4: Y = Len(n) \ 4
m = String(4 * x + 4 - Len(m), "0") & m
n = String(4 * Y + 4 - Len(n), "0") & n
x = x + 1: Y = Y + 1
Dim A(), B()
ReDim A(1 To x): ReDim B(1 To Y)
For i1 = 1 To x
A(i1) = Val(Mid(m, i1 * 4 - 3, 4))
Next
For i2 = 1 To Y
B(i2) = Val(Mid(n, i2 * 4 - 3, 4))
Next
ma = x: mb = Y
MC = ma + mb
ReDim c(MC)
E1 = 0
j1 = ma: j2 = ma
For I = MC To 2 Step -1
      If I <= ma Then j2 = I - 1
      e = E1: E1 = 0
      For J = j1 To j2
         e = e + A(J) * B(I - J)
         If e > 2040000000 Then '减少进位次数
            e = e - 2040000000
            E1 = E1 + 204000
         End If
      Next J

      If j1 > 1 Then j1 = j1 - 1
base = 10000
      d = e \ base
      c(I) = e - d * base
      If Len(c(I)) < 4 Then
      c(I) = String(4 - Len(c(I)), "0") & c(I)
      Else
      c(I) = c(I)
      End If
jc = c(I) & jc
      E1 = E1 + d
Next I
jc = d & jc
MbC = qqdl(Trim(jc))
End Function

'该程序已经做了修改，不是去掉前导0的问题，是补够前导0的问题。

Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
  Dim x, Y ';两数长度
  If qqdl(D2) = "0" Then
  MPC = D1
  Else
If Len(D1) >= Len(D2) Then
  D4 = String(Len(D1) - Len(D2), "0") & D2
  D3 = D1
  Else
  D4 = D2
  D3 = String(Len(D2) - Len(D1), "0") & D1
  End If
  x = Len(D3) \ 8: Y = Len(D4) \ 8
  D3 = String(8 * x + 8 - Len(D3), "0") & D3
  D4 = String(8 * Y + 8 - Len(D4), "0") & D4
  x = x + 1: Y = Y + 1

  Dim A() As String, B1() As String, C1() As String, E1() As String
  ReDim A(1 To x)
  ReDim B1(1 To Y)
  ReDim C1(1 To x)
  ReDim E1(1 To x)
  Dim I, J, C2, CJ, JW
  For J = Y To 1 Step -1 ';D2
  JW = 1 ';yu jie weichuzhi
  B1(J) = Mid(D4, J * 8 - 7, 8) ';每位数
For I = x To 1 Step -1  ';D1
   A(I) = Mid(D3, I * 8 - 7, 8) ';每位数
C1(I) = Val(1 & A(I)) - Val(B1(I)) - Val(1) + Val(JW) ';计算jia
If Len(C1(I)) <= 8 Then
JW = 0
C1(I) = String(8 - Len(C1(I)), "0") & C1(I)
Else
   JW = Left(C1(I), Len(C1(I)) - 8)
   End If
   E1(I) = Right(C1(I), 8)
   If Len(E1(I)) < 8 Then
   E1(I) = String(8 - Len(E1(I)), "0") & E1(I)
   Else
   E1(I) = E1(I)
   End If

Next
Next
For r = 1 To x
MPC = MPC & E1(r)
If Len(MPC) > Len(D1) Then
MPC = Mid(MPC, Len(MPC) - Len(D1) + 1)
Else
MPC = MPC
End If
For I = 1 To Len(MPC)
   If Not Mid(MPC, I, 1) = "0" Then
      Exit For
   End If
  Next
  strTmp = Mid(MPC, I)
If Len(strTmp) = 0 Then
MPC = "0"
Else
  MPC = strTmp
  End If
Next
End If

  End Function

Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
  Dim x, Y, JW '两数长度

If Len(D1) >= Len(D2) Then
  D4 = String(Len(D1) - Len(D2), "0") & D2
  D3 = D1
  Else
  D4 = D2
  D3 = String(Len(D2) - Len(D1), "0") & D1
  End If
  x = Len(D3) \ 8: Y = Len(D4) \ 8
  If 8 * x < Len(D3) Then
  D3 = String(8 * x + 8 - Len(D3), "0") & D3
  D4 = String(8 * Y + 8 - Len(D4), "0") & D4
  x = x + 1: Y = Y + 1
  Else
  x = x: Y = Y
  D3 = D3: D4 = D4
  End If
  Dim A() As String, B1() As String, C1() As String, E1() As String
  ReDim A(1 To x)
  ReDim B1(1 To Y)
  ReDim C1(1 To x)
  ReDim E1(1 To x)
  Dim I, J, C2, CJ
  For J = Y To 1 Step -1 'D2
  JW = 0 '进位清0
  B1(J) = Mid$(D4, J * 8 - 7, 8) '每位数
For I = x To 1 Step -1  'D1
   A(I) = Mid$(D3, I * 8 - 7, 8) '每位数
C1(I) = Val(A(I)) + Val(B1(I)) + Val(JW) '计算jia
If Len(C1(I)) < 8 Then
C1(I) = String(8 - Len(C1(I)), "0") & C1(I)
Else
C1(I) = C1(I)
End If
   JW = Left(C1(I), Len(C1(I)) - 8)
   E1(I) = Right(C1(I), 8)
Next
Next
For r = 1 To x
If JW = 0 Then
MPC1 = MPC1 & E1(r)
Else
jc = jc & E1(r)
MPC1 = JW & jc
End If
Next
MPC1 = qqdl(Trim(MPC1))
  End Function

  Private Function qqdl(sa As String) As String


  For I = 1 To Len(sa)
If Not Mid(sa, I, 1) = "0" Then
      Exit For
End If
Next
strTmp = Mid(sa, I)
  If Len(strTmp) = 0 Then
  qqdl = "0"
  Else
qqdl = strTmp
End If
End Function

Private Function zzxc(sa As String, sb As String) As String
Dim A, B, c, d, r
  A = Trim(sa)
  B = Trim(sb)
  If Len(A) < 10 And Len(B) < 10 Then

  If Val(A) > Val(B) Then
   c = A
   d = B
  Else
   c = B
   d = A
  End If
Do Until Val(c) Mod Val(d) = 0
   r = c Mod d
   c = d
   d = r
  Loop

  Else

  If MBJC(Trim(A), Trim(B)) >= 1 Then
  c = A
  d = B
  Else
  c = B
  d = A
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If


  zzxc = d

End Function

Private Function qniyuan(sa As String, sb As String) As String
Dim n, p, A, B, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  A = 1
  B = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then

  If Val(n) > Val(p) Then
   m = n
   q = p
   s1 = 1
  Else
   m = p
   q = n
   s1 = 0
  End If
Do Until Val(m) Mod Val(q) = 0
s = m \ q
   r = m Mod q
   s1 = s1 + 1
   If s1 Mod 2 = 1 Then
   A = A
   B = A * s + B
   c = c
   d = c * s + d
   Else
   B = B
   A = A + B * s
   d = d
   c = c + d * s
   End If
   m = q
   q = r
  Loop
  If Val(A + B * m) = p Then
  B = B
  A = A + B * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(B + A * m) = p Then
  A = A
  B = B + A * m
  c = c
  d = d + c * m
  Else
  B = B
  A = A + B * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
x = (A + B) Mod p
  Y = (c + d) Mod n


  Else

  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  q = p
  s1 = 1
  Else
  m = p
  q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  A = A
  B = MPC1(MbC(Trim(A), Trim(s)), Trim(B))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  B = B
  A = MPC1(Trim(A), MbC(Trim(B), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If

  m = q
  q = r
  Loop

  If MPC1(Trim(A), MbC(Trim(B), Trim(m))) = p Then
  B = B
  A = MPC1(Trim(A), MbC(Trim(B), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(B), MbC(Trim(A), Trim(m))) = p Then
  A = A
  B = MPC1(Trim(B), MbC(Trim(A), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  B = B
  A = MPC1(Trim(A), MbC(Trim(B), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(A, 1) = "0"
A = Mid(A, 2)
Loop

  End If

  qniyuan = A
End Function

Private Function qksmimo(sa As String, sb As String, sc As String) As String
Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
End Function

Private Function fenjieyinzi(sa As String) As String
Dim A, B
Dim x As String
x = sa
B1 = Sqr(Val(x)) / 2
If InStr(B1, ".") = 0 Then
B = B1
Else
B = Left(B1, InStr(B1, ".") - 1)
End If
If x = 3 Or x = 2 Then
A = True
Else
If Right(x, 1) Mod 2 = 0 Then
A = False
Else
For I = 3 To 2 * B + 1 Step 2
b2 = x / I
If InStr(b2, ".") = 0 Then
A = False
Exit For

Else: A = True

End If
Next
End If
End If
If A = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function

Private Sub Command1_Click()
Dim A, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
ts = Timer
Do While MBJC(Trim(n), 3) < 0
If MBJC(Trim(n), 2) = 0 Then
m1 = m1 & n & "  "
s = s + 1
Else
m1 = m1
End If
n = n + 1
Loop
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
A = 123
'a为明文
a1 = zzxc(Trim(n), Trim(A))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(A), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(A)) = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & "  "
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：（用时" & Timer - ts & "秒）" & vbCrLf & m1
End Sub

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

作者: lusishun 时间: 2021-4-4 15:03
计算高手啊

作者: ysr 时间: 2021-4-4 17:43

lusishun 发表于 2021-4-4 07:03
计算高手啊

感谢鼓励和支持！算不上高手，人家都是毫秒级的，我是把各种传说中的快速方法都尝试了，速度并没有大幅提高，仅仅稍微好一点，咋回事呢？还得考虑一下，不知道咋弄的，可能是硬件问题？普通电脑达不到那个效果？

作者: ysr 时间: 2021-4-4 17:58
10000000000~10000000100之间的素数有5个：（用时2.714844秒）
10000000019 10000000033 10000000061 10000000069 10000000097
（同样的程序，在单位电脑上就稍微快一点）

作者: lusishun 时间: 2021-4-4 18:00

ysr 发表于 2021-4-4 09:43
感谢鼓励和支持！算不上高手，人家都是毫秒级的，我是把各种传说中的快速方法都尝试了，速度并没有大幅提 ...

别浪费时间和资源，没有必要，做点别的

作者: ysr 时间: 2021-4-4 18:12

lusishun 发表于 2021-4-4 10:00
别浪费时间和资源，没有必要，做点别的

人各有志，我也不过玩玩而已，想要破解世界纪录，我的程序速度，距离轻松破解纪录还差的远，不过我道是能估计出能破解世界纪录的素数的大致位置，如果程序速度够快的话，那是有可能轻松破解纪录的。
奈何程序速度老师提不上来，还要努力提高程序速度。仅仅是玩玩而已，即使破解了世界纪录又能怎么样？
根本没有人重视，没有人关注更别说给你评审了，仅仅自己高兴一下，仅仅是个人爱好而已，就算个智力活动，娱乐一下而已。
国家都不重视，谈不上啥意义，更别说去国际上为国争光了，都是瞎扯淡的。仅仅自己娱乐和留作来过人世的证据而已，这也算个意义吧？

作者: ysr 时间: 2021-4-4 18:41

lusishun 发表于 2021-4-4 07:03
计算高手啊

有个网友说，20亿内的素数表，其程序能在100毫秒内打出来，用的是筛法，对整数批处理的不是逐个判断的，不过此法太占内存，普通电脑20亿以外的用此法就会显示内存溢出，改用其他法就慢了。
所以，普通电脑一般最多可以迅速打出20亿以内的素数表，再大的话就只能单独判断或分成整数小段判断了，就是在很小的一段大整数中判断有几个素数。

作者: ysr 时间: 2021-4-5 15:29
2333333333333333333333~2333333333333333334333之间的素数有11个：（用时150.793秒）
2333333333333333333369 2333333333333333333537 2333333333333333333549 2333333333333333333771 2333333333333333333851 2333333333333333333993 2333333333333333334079 2333333333333333334131 2333333333333333334229 2333333333333333334251
2333333333333333334319

这都是22位的素数，看起来速度还可以。再提高一点可能困难了，继续努力吧。

作者: ysr 时间: 2021-4-7 20:08
3142610000~3142611000之间的素数有44个：（用时1.59375秒）
3142610039  3142610057  3142610087  3142610111  3142610131  3142610173  3142610179  3142610183  3142610231  3142610243
3142610269  3142610291  3142610297  3142610333  3142610347  3142610351  3142610363  3142610371  3142610413  3142610477
3142610539  3142610561  3142610593  3142610609  3142610623  3142610671  3142610677  3142610693  3142610707  3142610711
3142610729  3142610741  3142610743  3142610827  3142610851  3142610857  3142610881  3142610893  3142610899  3142610921
3142610929  3142610951  3142610953  3142610959

作者: ysr 时间: 2021-8-20 23:22
以上代码和程序都稍有修改，改为：把低于11位的都使用常规判断法，11位以上的使用我的大数快速素数判定法。

这样速度居然稍有提高，对于低位数的素数判定这种方法有时候可能会失效而出现错误，所以改进了一下，用于判定11位以上的素数。

作者: ysr 时间: 2021-8-21 01:10
765432123459989~765432123460989之间的素数有33个：（用时15.90308秒）
765432123459989  765432123460007  765432123460051  765432123460133  765432123460153  765432123460183  765432123460189  765432123460217  765432123460247  765432123460271
765432123460337  765432123460387  765432123460463  765432123460507  765432123460531  765432123460541  765432123460559  765432123460583  765432123460591  765432123460601
765432123460633  765432123460637  765432123460639  765432123460657  765432123460709  765432123460777  765432123460783  765432123460787  765432123460831  765432123460897
765432123460913  765432123460931  765432123460973

作者: ysr 时间: 2021-8-21 01:18
765432123456829~765432123459989之间的素数有92个：（用时50.54297秒）
765432123456829  765432123456967  765432123457003  765432123457021  765432123457069  765432123457087  765432123457103  765432123457171  765432123457187  765432123457193
765432123457201  765432123457217  765432123457247  765432123457279  765432123457411  765432123457423  765432123457447  765432123457483  765432123457523  765432123457543
765432123457577  765432123457607  765432123457621  765432123457643  765432123457649  765432123457679  765432123457699  765432123457721  765432123457753  765432123457769
765432123457811  765432123457817  765432123457843  765432123457849  765432123457853  765432123457877  765432123457901  765432123457933  765432123458011  765432123458017
765432123458039  765432123458087  765432123458227  765432123458243  765432123458251  765432123458323  765432123458363  765432123458377  765432123458393  765432123458461
765432123458579  765432123458599  765432123458669  765432123458683  765432123458689  765432123458707  765432123458759  765432123458851  765432123458867  765432123458887
765432123458987  765432123458999  765432123459019  765432123459037  765432123459083  765432123459109  765432123459121  765432123459181  765432123459191  765432123459287
765432123459329  765432123459337  765432123459347  765432123459371  765432123459383  765432123459397  765432123459407  765432123459469  765432123459503  765432123459511
765432123459541  765432123459617  765432123459727  765432123459763  765432123459791  765432123459797  765432123459847  765432123459863  765432123459911  765432123459917
765432123459937  765432123459989

作者: ysr 时间: 2021-8-21 06:24
用此程序，40亿~100亿内的是用的常规法判断的，速度也不慢，100亿~1000亿的时用我的大数快速素数判定方法判断的。该程序能满足楼主的需要和要求。

作者: ysr 时间: 2021-8-21 06:33
4000101000~4000111000之间的素数有457个：（用时8.980469秒）
4000101023  4000101029  4000101031  4000101059  4000101121  4000101251  4000101289  4000101307  4000101311  4000101319
4000101379  4000101389  4000101397  4000101431  4000101449  4000101467  4000101473  4000101493  4000101517  4000101533
4000101613  4000101619  4000101671  4000101691  4000101727  4000101757  4000101767  4000101769  4000101773  4000101797
4000101799  4000101841  4000101881  4000101907  4000101997  4000102003  4000102009  4000102013  4000102033  4000102097
4000102111  4000102121  4000102123  4000102151  4000102163  4000102177  4000102181  4000102189  4000102207  4000102213
4000102277  4000102279  4000102289  4000102303  4000102313  4000102369  4000102373  4000102387  4000102399  4000102411
4000102427  4000102429  4000102487  4000102493  4000102529  4000102537  4000102543  4000102553  4000102607  4000102619
4000102637  4000102643  4000102651  4000102657  4000102693  4000102727  4000102739  4000102783  4000102787  4000102789
4000102793  4000102861  4000102961  4000102969  4000103033  4000103047  4000103053  4000103057  4000103083  4000103123
4000103137  4000103141  4000103147  4000103183  4000103201  4000103207  4000103227  4000103249  4000103267  4000103297
4000103311  4000103323  4000103333  4000103339  4000103347  4000103353  4000103357  4000103381  4000103399  4000103407
4000103447  4000103449  4000103453  4000103477  4000103521  4000103531  4000103533  4000103537  4000103551  4000103563
4000103593  4000103629  4000103647  4000103659  4000103711  4000103761  4000103797  4000103803  4000103813  4000103819
4000103873  4000103917  4000103959  4000103963  4000103971  4000104001  4000104019  4000104049  4000104061  4000104071
4000104089  4000104107  4000104137  4000104161  4000104169  4000104187  4000104191  4000104193  4000104239  4000104253
4000104281  4000104323  4000104343  4000104359  4000104391  4000104439  4000104469  4000104481  4000104509  4000104533
4000104553  4000104557  4000104583  4000104617  4000104653  4000104671  4000104679  4000104701  4000104737  4000104761
4000104767  4000104791  4000104793  4000104839  4000104851  4000104863  4000104883  4000104917  4000104943  4000104991
4000105001  4000105009  4000105037  4000105063  4000105079  4000105091  4000105097  4000105121  4000105127  4000105129
4000105147  4000105159  4000105163  4000105177  4000105183  4000105211  4000105231  4000105259  4000105271  4000105273
4000105331  4000105357  4000105379  4000105391  4000105463  4000105471  4000105493  4000105507  4000105537  4000105583
4000105609  4000105621  4000105649  4000105679  4000105793  4000105799  4000105859  4000105867  4000105873  4000105897
4000105903  4000105913  4000105951  4000105957  4000105961  4000105969  4000105997  4000106023  4000106041  4000106051
4000106053  4000106057  4000106059  4000106063  4000106129  4000106167  4000106179  4000106251  4000106263  4000106269
4000106287  4000106291  4000106317  4000106339  4000106419  4000106437  4000106447  4000106449  4000106491  4000106501
4000106521  4000106533  4000106563  4000106567  4000106573  4000106581  4000106587  4000106639  4000106699  4000106797
4000106807  4000106809  4000106819  4000106827  4000106861  4000106921  4000106923  4000106951  4000107017  4000107019
4000107029  4000107053  4000107061  4000107071  4000107091  4000107101  4000107109  4000107143  4000107151  4000107173
4000107233  4000107239  4000107247  4000107263  4000107277  4000107283  4000107317  4000107329  4000107337  4000107341
4000107347  4000107383  4000107427  4000107457  4000107467  4000107469  4000107509  4000107511  4000107523  4000107571
4000107607  4000107613  4000107707  4000107719  4000107733  4000107739  4000107751  4000107763  4000107773  4000107821
4000107841  4000107863  4000107889  4000107899  4000107907  4000107919  4000107949  4000107959  4000107977  4000107989
4000108027  4000108031  4000108039  4000108093  4000108129  4000108159  4000108163  4000108193  4000108207  4000108241
4000108267  4000108291  4000108337  4000108339  4000108423  4000108429  4000108439  4000108481  4000108499  4000108523
4000108531  4000108537  4000108559  4000108561  4000108603  4000108621  4000108633  4000108663  4000108667  4000108699
4000108709  4000108747  4000108771  4000108829  4000108897  4000108907  4000108919  4000108921  4000108943  4000108979
4000109011  4000109033  4000109051  4000109053  4000109059  4000109089  4000109119  4000109123  4000109131  4000109137
4000109143  4000109167  4000109189  4000109213  4000109237  4000109251  4000109263  4000109303  4000109327  4000109341
4000109369  4000109381  4000109383  4000109389  4000109419  4000109437  4000109453  4000109467  4000109473  4000109549
4000109573  4000109579  4000109657  4000109677  4000109689  4000109731  4000109761  4000109797  4000109803  4000109807
4000109819  4000109821  4000109903  4000109909  4000109921  4000109947  4000110043  4000110053  4000110077  4000110083
4000110089  4000110097  4000110119  4000110161  4000110199  4000110209  4000110227  4000110229  4000110241  4000110271
4000110281  4000110307  4000110311  4000110329  4000110349  4000110377  4000110397  4000110407  4000110437  4000110463
4000110467  4000110479  4000110487  4000110493  4000110503  4000110533  4000110547  4000110551  4000110553  4000110571
4000110613  4000110623  4000110643  4000110689  4000110703  4000110731  4000110739  4000110749  4000110767  4000110787
4000110797  4000110799  4000110887  4000110893  4000110937  4000110979  4000110997

作者: ysr 时间: 2021-8-21 06:58
比前面少了一个4000109569，这个可能是合数，4000109569=42641*93809。

改进前的程序对低位数的素数，偶尔会有失效的，改进后的正确。

作者: ysr 时间: 2022-1-15 14:46
146376311461999846452573426637与146376311461999846452573436637之间有5对差大于200的素数对:
146376311461999846452573430571/204
146376311461999846452573432911/402
146376311461999846452573433157/210
146376311461999846452573434117/336
146376311461999846452573435007/254
用时8418.995秒这一段有个超过400的间距。

本楼的程序都经过多次调试改进，速度提高不少，可以判断大素数，欢迎试用。

作者: ysr 时间: 2022-1-18 13:46
146376311461999846452573498637与146376311461999846452573499637之间有2对差大于200的素数对:
146376311461999846452573497627/304
146376311461999846452573498011/318
146376311461999846452573498361/212

146376311461999846452573499009/240
146376311461999846452573499373/210
用时2326.299秒

作者: ysr 时间: 2022-1-19 14:26
146376311461999846452573559637与146376311461999846452573569637之间有8对差大于200的素数对:
146376311461999846452573560269/290
146376311461999846452573560479/210
146376311461999846452573560983/252
146376311461999846452573563029/530
146376311461999846452573563441/228
146376311461999846452573565307/306
146376311461999846452573566473/204
146376311461999846452573569231/214
用时5741.828秒这段有个超过500的间距

作者: ysr 时间: 2022-1-21 12:45
146376311461999846452573593637与146376311461999846452573595637之间有1对差大于200的素数对:
146376311461999846452573594091/344
用时4965.162秒

作者: ysr 时间: 2022-1-21 20:22
146376311461999846452573599637与146376311461999846452573601637之间有3对差大于200的素数对:
146376311461999846452573600487/204
146376311461999846452573600829/210
146376311461999846452573601951/618
用时5145.324秒

作者: ysr 时间: 2022-1-22 09:56
146376311462000611635717360687与146376311462000611635717361687之间有2对差大于200的素数对:
146376311462000611635717361241/210
146376311462000611635717361741/218
用时2526.357秒

作者: ysr 时间: 2022-1-22 11:42
本帖最后由 ysr 于 2022-1-22 04:30 编辑

146376311462001376818807889937与146376311462001376818807891937之间有1对差大于200的素数对:
Text3146376311462001376818807891613/504
用时4800.923秒

146376311462001376818807891937与146376311462001376818807892937之间有1对差大于200的素数对:
Text3146376311462001376818807892921/212
用时2411.397秒

作者: ysr 时间: 2022-1-22 18:38
146376311461999846452573631637与146376311461999846452573641637之间有11对差大于200的素数对:
146376311461999846452573632411/258
146376311461999846452573632827/294
146376311461999846452573634543/470
146376311461999846452573635029/278
146376311461999846452573635489/262
146376311461999846452573636271/330
146376311461999846452573637649/210
146376311461999846452573638959/230
146376311461999846452573639337/234
146376311461999846452573640973/244
146376311461999846452573641849/216
用时2255.417秒

作者: ysr 时间: 2022-1-23 09:53
146376311462000611635717363687与146376311462000611635717373687之间有11对差大于200的素数对:
146376311462000611635717364381/228
146376311462000611635717365653/252
146376311462000611635717366077/424
146376311462000611635717367141/240
146376311462000611635717367409/216
146376311462000611635717367631/214
146376311462000611635717368489/202
146376311462000611635717369773/306
146376311462000611635717371773/260
146376311462000611635717373457/316
146376311462000611635717373961/354
用时9208.29秒

作者: ysr 时间: 2022-1-23 12:24
146376311462000611635717383687与146376311462000611635717393687之间有5对差大于200的素数对:
146376311462000611635717384469/248
146376311462000611635717386123/264
146376311462000611635717388349/388
146376311462000611635717389671/338
146376311462000611635717392821/228
用时2434.29秒

作者: ysr 时间: 2022-1-23 17:48
146376311462001376818807912937与146376311462001376818807922937之间有6对差大于200的素数对:
146376311462001376818807913213/246
146376311462001376818807915809/238
146376311462001376818807916553/444
146376311462001376818807917023/224
146376311462001376818807919463/264
146376311462001376818807920347/320
用时2282.573秒

作者: ysr 时间: 2022-1-23 21:50
146376311462001376818807932937与146376311462001376818807942937之间有8对差大于200的素数对:
146376311462001376818807933893/252
146376311462001376818807938969/562
146376311462001376818807940511/262
146376311462001376818807941051/288
146376311462001376818807941479/312
146376311462001376818807941737/258
146376311462001376818807942019/282
146376311462001376818807942359/270
用时2246.12199999999秒

作者: ysr 时间: 2022-1-24 06:41
146376311462001376818807952937与146376311462001376818807972937之间有13对差大于200的素数对:
146376311462001376818807954551/240
146376311462001376818807958337/288
146376311462001376818807958813/246
146376311462001376818807959479/228
146376311462001376818807960139/212
146376311462001376818807960773/582
146376311462001376818807961261/242
146376311462001376818807961721/228
146376311462001376818807965149/210
146376311462001376818807966041/252
146376311462001376818807968191/204
146376311462001376818807968611/224
146376311462001376818807973153/270
用时-61119.932秒

作者: ysr 时间: 2022-1-24 16:03
146376311462001376818807992937与146376311462001376818808012937之间有14对差大于200的素数对:
146376311462001376818807994709/280
146376311462001376818807995623/242
146376311462001376818807995941/318
146376311462001376818807999769/246
146376311462001376818808001471/328
146376311462001376818808003151/204
146376311462001376818808003361/210
146376311462001376818808004243/294
146376311462001376818808005409/242
146376311462001376818808006169/352
146376311462001376818808007351/220
146376311462001376818808010407/398
146376311462001376818808011523/500
146376311462001376818808013053/204
用时19937.457秒

作者: ysr 时间: 2022-1-24 18:31
146376311462001376818808022937与146376311462001376818808032937之间有6对差大于200的素数对:
146376311462001376818808024001/204
146376311462001376818808025897/678
146376311462001376818808026959/228
146376311462001376818808028909/226
146376311462001376818808029829/206
146376311462001376818808030489/240
用时2255.057秒

作者: ysr 时间: 2022-1-27 13:00
146376311461999846452573601637与146376311461999846452573611637之间有6对差大于200的素数对:
146376311461999846452573601951/316
146376311461999846452573602357/228
146376311461999846452573604013/246
146376311461999846452573605317/210
146376311461999846452573606179/406
146376311461999846452573608759/298
用时2173.693秒

作者: ysr 时间: 2023-11-10 13:38
12345678911~12345679111之间的素数有5个：
12345678923 12345678929 12345678949 12345679007 12345679109

代码如下：

Private Sub Command1_Click()
Dim a, n
n = Trim(Text1)
n3 = n
m = Trim(Text2)
If Right(n, 1) Mod 2 = 0 Then
n = MPC1(Trim(n), 1)
Else
n = n
End If
Do While MBJC(Trim(n), Trim(m)) <= 0
If Len(n) < 11 Then
a1 = fenjieyinzi(Trim(n))
If InStr(a1, "*") = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & " "
End If
Else
m1 = m1
End If
Else
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
m1 = m1
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
s = s + 1
If s Mod 10 = 0 Then
m1 = m1 & n & vbCrLf
Else
m1 = m1 & n & Space(2) 'Space(2)是输出2个空格
End If
Else
m1 = m1
End If
End If
End If
n = MPC1(Trim(n), 2)
Loop
Text3 = n3 & "~" & m & "之间的素数有" & s & "个：" & vbCrLf & m1
End Sub

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

作者: ysr 时间: 2024-1-10 13:07

ysr 发表于 2021-2-1 13:34
把这个筛选素数压缩文件传一下，是从Text1 算到Text2的:

如下就是40楼的那个程序的界面图片，不能下载和打开程序的可以参考一下这个图片，复制文中的代码就可以运行了:

欢迎光临数学中国 (http://www.mathchina.com/bbs/)