程序代码如下：（仅发主程序）
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
Do While InStr(fenjieyinzi0(Val(a)), "*") <> 0
a = a + 2
Loop
s101 = 1
Do While a <= Q
b = a + s2
d = fenjieyinzi0(Val(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
b = a + s2
d = fenjieyinzi0(Val(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Val(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
s101 = s101 + 1
a = 11 + (s101 - 1) * s101 * (s101 + 1) * (s101 + 2) / 4
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & Q & "之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
For b = 0 To UBound(a)
If temp < a(b) Then temp = a(b)
Next
max = temp
End Function 作者: ysr 时间: 2020-8-19 13:12
18371与10000000000之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有3个连续素数:
18371
122861
188801
215771
548351
671591
1624361
1897517
2925821
3347081
4062251
5501381
6530591
17518421
/19101281/19101283
/20789051/20789053/20789057
49287431
70299851
86778551
112031651
131687111
201512231
226517561
259516001
265347821
283434071
/428717741/428717743
/437207201/437207203
/529207031/529207033
549222671
559440767
/669645017/669645019
755947541
782069201
808862051
953296511
984359261
2177575571
2384124767
/2508557321/2508557323
2670874091
2840943311
3282201401
/3687586361/3687586363
/4083529517/4083529519
4510532771
4710694601
5753905181
6431959811
7029900191
/8747393267/8747393269
代码如下，只发主程序：
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
Do While InStr(fenjieyinzi0(Val(a)), "*") <> 0
a = a + 2
Loop
s101 = Int(((a - 11) * 4) ^ (1 / 4))
Do While a <= Q
b = a + s2
d = fenjieyinzi0(Val(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
b = a + s2
d = fenjieyinzi0(Val(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Val(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
s101 = s101 + 1
If s101 < 10000 Then
a = 11 + (s101 - 1) * s101 * (s101 + 1) * (s101 + 2) / 4
Else
b5 = MbC(Val(s101 - 1), Val(s101)): b6 = MbC(Val(s101 + 1), Val(s101 + 2))
a = MPC1(11, MCC1(MbC(Trim(b5), Trim(b6)), 4))
End If
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & Q & "之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
For b = 0 To UBound(a)
If temp < a(b) Then temp = a(b)
Next
max = temp
End Function作者: ysr 时间: 2020-8-23 07:25
100000000000000与1E+15之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有0个连续素数:
100000000000031 作者: ysr 时间: 2020-8-23 13:33 本帖最后由 ysr 于 2020-8-23 08:29 编辑
2000000002560000与9000000002560000之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有3个连续素数:
2000000002560029
504229292957561
514845879436451
516069790091741
528741074691281
529365095972171
529677313663691
533120831058701
546423467368517
549306117235691
561277008642521
567170919437861
568486956148271
575433763228211
575766143741267
581103840255131
582108775351841
588503665959941
592569599276267
594269941410767
603859580764481
615659635187621
616359099322991
616709054808767
624799241124251
651004789406831
652464134107517
/654657749824691/654657749824693/654657749824697
656489984265671
659061570445841
667935828402581
675024598106471
678778114410281
691657256887517
703945405548941
718749424297517
725842778819441
727426183334771
727822438916051
730203373197911
739384442949011
744611885818517
747842520477401
748247087705141
757189168901981
763331829600071
767860144173821
771166096365017
774898040097101
779060512750691
785755321412267
789961429593767
794184401532017
798849202030331
814259607970001
818579564678081
837351560535767
842647396963721
851975508315791
852867921229517
870863855712017
871771064567141
886842592909517
890064542768561 作者: ysr 时间: 2020-8-23 16:30
程序代码如下：（只发主程序）
Private Sub Command1_Click()
Dim a, b
a = Trim(Text1)
a1 = a
Q = Trim(Text2)
m = Sqr(Q)
If Right(a, 1) Mod 2 = 0 Then
a = MPC1(Trim(a), 1)
Else
a = a
End If
Do While InStr(fenjieyinzi0(Trim(a)), "*") <> 0
If a < 10 ^ 10 Then
a = a + 2
Else
a = MPC1(Trim(a), 2)
End If
Loop
If a < 10 ^ 14 Then
s101 = Int((Val(a - 11) * 4) ^ (1 / 4))
Else
s102 = zhengchuqy(MBBC(Trim(a)))
s101 = zhengchuqy(MBBC(Trim(s102)))
End If
Print s101
Do While a <= Q
If a < 1000000000 Then
b = a + s2
Else
b = MPC1(Trim(a), Trim(s2))
End If
d = fenjieyinzi0(Trim(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
If a < 1000000000 Then
b = a + s2
Else
b = MPC1(Trim(a), Trim(s2))
End If
d = fenjieyinzi0(Trim(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Trim(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
If s101 < 10000 Then
s101 = s101 + 1
Else
s101 = MPC1(Trim(s101), 1)
End If
If s101 < 1000 Then
a = 11 + (s101 - 1) * s101 * (s101 + 1) * (s101 + 2) / 4
Else
b5 = MbC(Val(s101 - 1), Val(s101)): b6 = MbC(Val(s101 + 1), Val(s101 + 2))
Print b5, b6
a = MPC1(11, zhengchuqy(MCC1(MbC(Trim(b5), Trim(b6)), 4)))
End If
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & Q & "之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
代码如下：
Private Sub Command1_Click()
Dim a, b
a = Trim(Text1)
a1 = a
Q = Trim(Text2)
If Right(a, 1) Mod 2 = 0 Then
a = MPC1(Trim(a), 1)
Else
a = a
End If
Do While InStr(fenjieyinzi0(Trim(a)), "*") <> 0
If MBJC(Trim(a), "10000000000") < 0 Then
a = a + 2
Else
a = MPC1(Trim(a), 2)
End If
Loop
If MBJC(Trim(a), "100000000000000") < 0 Then
s101 = Int((Val(a - 11) * 4) ^ (1 / 4))
Else
a11 = MbC(MPC(Trim(a), "11"), 4)
s102 = zhengchuqy(MBBC(Trim(a11)))
s101 = zhengchuqy(MBBC(Trim(s102)))
End If
Do While MBJC(Trim(a), Trim(Q)) < 0
If MBJC(Trim(a), "1000000") Then
b = a + s2
Else
b = MPC1(Trim(a), Trim(s2))
End If
d = fenjieyinzi0(Trim(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
If MBJC(Trim(a), "1000000000") < 0 Then
b = a + s2
Else
b = MPC1(Trim(a), Trim(s2))
End If
d = fenjieyinzi0(Trim(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Trim(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
Print s101
s101 = MPC1(Trim(s101), 1)
Print s101
If s101 < 1000 Then
a = 11 + (s101 - 1) * s101 * (s101 + 1) * (s101 + 2) / 4
Else
b5 = MbC(Val(s101 - 1), Val(s101)): b6 = MbC(Val(s101 + 1), Val(s101 + 2))
Print b5, b6
a = MPC1(zhengchuqy(MCC1(MbC(Trim(b5), Trim(b6)), 4)), 11)
End If
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & Q & "之间的数列11+(n-1)n(n+1)(n+2)/4,（n>=2.）的素数开头最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
Do While InStr(fenjieyinzi0(Val(a)), "*") <> 0
a = a + 2
Loop
Do While a <= Q
b = a
d = fenjieyinzi0(Val(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
b = b + 210
d = fenjieyinzi0(Val(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Val(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
a = a + 2
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & Q & "之间的素数开头最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
Private Sub Command1_Click()
Dim a, b
a = Trim(Text1)
a1 = a
q = Trim(Text2)
m = Sqr(q)
If Right(a, 1) Mod 2 = 0 Then
a = MPC1(Trim(a), 1)
Else
a = a
End If
Do While InStr(fenjieyinzi0(Trim(a)), "*") <> 0
a = MPC1(Trim(a), 2)
Loop
Do While MBJC(Trim(a), Trim(q)) < 0
b = a
d = fenjieyinzi0(Trim(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
b = MPC1(Trim(b), "200560490130")
d = fenjieyinzi0(Val(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Trim(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
a = MPC1(Trim(a), 2)
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & q & "之间的素数开头差为200560490130最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
For b = 0 To UBound(a)
If temp < a(b) Then temp = a(b)
Next
max = temp
End Function作者: ysr 时间: 2020-9-9 21:49
540559与602529之间的素数开头差为200560490130最多有8个连续素数:
/588893/200561079023/401121569153/601682059283/802242549413/1002803039543/1203363529673/1403924019803作者: ysr 时间: 2020-9-10 06:13
652529与702529之间的素数开头差为200560490130最多有7个连续素数:
/656263/200561146393/401121636523/601682126653/802242616783/1002803106913/1203363597043
Private Sub Command1_Click()
Dim a, b
a = Trim(Text1)
a1 = a
Q = Trim(Text2)
m = Sqr(Q)
If Right(a, 1) Mod 2 = 0 Then
a = MPC1(Trim(a), 1)
Else
a = a
End If
Do While InStr(fenjieyinzi0(Trim(a)), "*") <> 0
a = MPC1(Trim(a), 2)
Loop
Do While MBJC(Trim(a), Trim(Q)) < 0
b = a
d = fenjieyinzi0(Trim(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
b = MPC1(Trim(b), "200560490130")
d = fenjieyinzi0(Val(b))
Loop
If s > 6 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Trim(a)), "*") = 0 Then
Text3 = Text3
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
a = MPC1(Trim(a), 2)
s2 = 0
Loop
s6 = Mid(s5, 2)
s7 = max(Trim(s6))
Combo1 = a1 & "与" & Q & "之间的素数开头差为200560490130最多有" & s7 & "个连续素数:" & vbCrLf & Text3
Text4 = s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long