数论问题巅峰对决

ysr · 发表于 2020-10-13 20:22

代码如下：（仅发主程序）
Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
Q = Val(Text2)
m = Sqr(Q)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While a <= m
b = a + 30
c = fenjieyinzi0(Val(a))
d = fenjieyinzi0(Val(b))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 Then
s = s + 1
Print a, b, a + 15
Text3 = Text3 & "/" & a + 15 & vbCrLf
Else
s = s
End If
a = a + 2
Loop
a2 = a
s1 = s
Do While a2 <= Q
B1 = a2 + 30
c1 = fenjieyinzi0(Val(a2))
D1 = fenjieyinzi0(Val(B1))

If InStr(c1, "*") = 0 And InStr(D1, "*") = 0 Then
s1 = s1 + 1
Print a2, B1, a2 + 15
Text3 = Text3 & "/" & a2 + 15 & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 2

Loop
Combo1 = a1 & "与" & Q & "之间有" & s1 & "对p,p+30素数对（仅发孪中p+15）:" & vbCrLf & Text3
s103 = DeleteSpace1(Text3)
s103 = Mid(s103, 1)
Dim i As Integer
Dim ak(), s105, cr(), f
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
j1 = UBound(s105)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
Print ak(1)
   n = 0
      For k = 1 To j1
         For i = 1 To j1
         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k)) + Val(ak(i))
         f(m) = ""
   Next
Next
   n = 0
   m = f.Keys
   For i = 0 To f.Count - 1
      ReDim Preserve cr(1 To i + 1)
      cr(i + 1) = m(i)
   Next
   For i = 1 To UBound(cr) - 1
      For j = i + 1 To UBound(cr)
         If cr(i) > cr(j) Then
            temp = cr(j)
            cr(j) = cr(i)
            cr(i) = temp  'c数组是排序好的
         End If
      Next j

   ' If i Mod 20 = 0 Then
   ' s104 = s104 & temp & "/" & vbCrLf
   ' Else
   ' s104 = s104 & temp & "/"
   ' End If
Next i

   For i = 1 To UBound(cr)
      If i Mod 20 = 0 Then
      s104 = s104 & cr(i) & "/" & vbCrLf
      Else
      s104 = s104 & cr(i) & "/"
      End If
   Next
      Print temp
      MsgBox "ok"
   MsgBox s104  '显示数组
Text4 = s104
End Sub

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

Public Function DeleteSpace1(Tmp As String) As String
  '删掉字符串中的换行符和空格的程序
  Dim a As String, b As String
Dim i As Long, j As Long, k As Long

a = Tmp
b = ""
k = Len(a)
For i = 1 To k
j = Asc(Mid(a, i))
If j <> 10 And j <> 13 And j <> 32 And j <> Asc(" ") Then '最后一个百条件是全角空格
b = b & Chr(j)
End If
Next
DeleteSpace1 = b
End Function

ysr · 发表于 2020-10-16 14:18

1与100之间的素数打头有5对p,p+10000素数对:
/7/10007
/37/10037
/61/10061
/67/10067
/79/10079

蔡家雄 · 发表于 2020-10-19 21:37

4生素数 p, p+30, p+210, p+2310 有无穷多组，

8生素数 p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870 有无穷多组，

蔡家雄 · 发表于 2020-10-20 14:54

4生素数 p, p+30, p+210, p+2310 有无穷多组，

8生素数 p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870 有无穷多组，

ysr · 发表于 2020-10-21 18:19

这两个猜想是成立的，是定理，我能给出证明，但有啥用？写出来也没人看，没人重视，留着继续研究吧！

ysr · 发表于 2020-10-21 20:12

100与1000之间有1组p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870素数对:
/727/757/937/3037/30757/511237/9700417/223093597

ysr · 发表于 2020-10-21 20:12

100与1000之间有1组p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870素数对:
/727/757/937/3037/30757/511237/9700417/223093597

ysr · 发表于 2020-10-21 20:18

代码如下：（只发主程序）

Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
Q = Val(Text2)
m = Sqr(Q)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While a <= Q
b = a + 30
B1 = a + 210
b2 = a + 2310
b3 = a + 30030
b4 = a + 510510
b5 = MPC1(Trim(a), "9699690")
b6 = MPC1(Trim(a), "223092870")
c = fenjieyinzi0(Val(a))
d = fenjieyinzi0(Val(b))
D1 = fenjieyinzi0(Val(B1))
D2 = fenjieyinzi0(Val(b2))
D3 = fenjieyinzi0(Val(b3))
D4 = fenjieyinzi0(Val(b4))
d5 = fenjieyinzi0(Val(b5))
d6 = fenjieyinzi0(Val(b6))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 And InStr(D1, "*") = 0 And InStr(D2, "*") = 0 And InStr(D3, "*") = 0 And InStr(D4, "*") = 0 And InStr(d5, "*") = 0 And InStr(d6, "*") = 0 Then
s = s + 1
Print a, b, B1
Text3 = Text3 & "/" & a & "/" & b & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & "/" & b5 & "/" & b6 & vbCrLf
Else
s = s
End If
a = a + 2
Loop

Combo1 = a1 & "与" & Q & "之间有" & s & "组p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870素数对:" & vbCrLf & Text3
s103 = DeleteSpace1(Text3)
s103 = Mid(s103, 1)
Dim i As Integer
Dim ak(), s105, cr(), f
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
j1 = UBound(s105)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
Print ak(1)
   n = 0
      For k = 1 To j1
         For i = 1 To j1
         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k)) + Val(ak(i))
         f(m) = ""
   Next
Next
   n = 0
   m = f.Keys
   For i = 0 To f.Count - 1
      ReDim Preserve cr(1 To i + 1)
      cr(i + 1) = m(i)
   Next
   For i = 1 To UBound(cr) - 1
      For j = i + 1 To UBound(cr)
         If cr(i) > cr(j) Then
            temp = cr(j)
            cr(j) = cr(i)
            cr(i) = temp  'c数组是排序好的
         End If
      Next j

   ' If i Mod 20 = 0 Then
   ' s104 = s104 & temp & "/" & vbCrLf
   ' Else
   ' s104 = s104 & temp & "/"
   ' End If
Next i

   For i = 1 To UBound(cr)
      If i Mod 20 = 0 Then
      s104 = s104 & cr(i) & "/" & vbCrLf
      Else
      s104 = s104 & cr(i) & "/"
      End If
   Next
      Print temp
      MsgBox "ok"
   MsgBox s104  '显示数组
Text4 = s104
End Sub

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

ysr · 发表于 2020-10-23 18:16

23与1000000之间有40组p, p+30, p+210, p+2310, p+30030, p+510510, p+9699690, p+223092870素数对:
/727/757/937/3037/30757/511237/9700417/223093597
/3593/3623/3803/5903/33623/514103/9703283/223096463
/9011/9041/9221/11321/39041/519521/9708701/223101881
/11369/11399/11579/13679/41399/521879/9711059/223104239
/11489/11519/11699/13799/41519/521999/9711179/223104359
/17909/17939/18119/20219/47939/528419/9717599/223110779
/21683/21713/21893/23993/51713/532193/9721373/223114553
/23563/23593/23773/25873/53593/534073/9723253/223116433
/36847/36877/37057/39157/66877/547357/9736537/223129717
/42139/42169/42349/44449/72169/552649/9741829/223135009
/65183/65213/65393/67493/95213/575693/9764873/223158053
/70429/70459/70639/72739/100459/580939/9770119/223163299
/74521/74551/74731/76831/104551/585031/9774211/223167391
/86351/86381/86561/88661/116381/596861/9786041/223179221
/116923/116953/117133/119233/146953/627433/9816613/223209793
/127607/127637/127817/129917/157637/638117/9827297/223220477
/140659/140689/140869/142969/170689/651169/9840349/223233529
/150587/150617/150797/152897/180617/661097/9850277/223243457
/161531/161561/161741/163841/191561/672041/9861221/223254401
/185153/185183/185363/187463/215183/695663/9884843/223278023
/295049/295079/295259/297359/325079/805559/9994739/223387919
/323413/323443/323623/325723/353443/833923/10023103/223416283
/372973/373003/373183/375283/403003/883483/10072663/223465843
/386987/387017/387197/389297/417017/897497/10086677/223479857
/392849/392879/393059/395159/422879/903359/10092539/223485719
/409723/409753/409933/412033/439753/920233/10109413/223502593
/443869/443899/444079/446179/473899/954379/10143559/223536739
/448169/448199/448379/450479/478199/958679/10147859/223541039
/499099/499129/499309/501409/529129/1009609/10198789/223591969
/527347/527377/527557/529657/557377/1037857/10227037/223620217
/554759/554789/554969/557069/584789/1065269/10254449/223647629
/592693/592723/592903/595003/622723/1103203/10292383/223685563
/607307/607337/607517/609617/637337/1117817/10306997/223700177
/673429/673459/673639/675739/703459/1183939/10373119/223766299
/676649/676679/676859/678959/706679/1187159/10376339/223769519
/716449/716479/716659/718759/746479/1226959/10416139/223809319
/721451/721481/721661/723761/751481/1231961/10421141/223814321
/778567/778597/778777/780877/808597/1289077/10478257/223871437
/783799/783829/784009/786109/813829/1294309/10483489/223876669
/928903/928933/929113/931213/958933/1439413/10628593/224021773

ysr · 发表于 2020-10-23 18:46

“ysr先生的程序也是用VFP语言吗？”
我用的是vb语言！
谢谢老师关注和沟通！欢迎探讨！

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

数论问题巅峰对决

点评