求数列的通项公式

ysr

4051000与4101000之间的素数开头差为200560490130最多有7个连续素数:
/4098503/200564588633/401125078763/601685568893/802246059023/1002806549153/1203367039283

ysr

4153000与4154000之间的素数开头差为200560490130最多有4个连续素数:

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

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

For b = 0 To UBound(a)
If temp < a(b) Then temp = a(b)
Next
max = temp
End Function

ysr

4154000与4194000之间的素数开头差为200560490130最多有9个连续素数:
/4182133/200564672263/401125162393/601685652523/802246142653/1002806632783/1203367122913/1403927613043
/4188857/200564678987/401125169117/601685659247/802246149377/1002806639507/1203367129637/1403927619767/1604488109897

ysr

4194000与4244000之间的素数开头差为200560490130最多有7个连续素数:
/4235663/200564725793/401125215923/601685706053/802246196183/1002806686313/1203367176443
/4243969/200564734099/401125224229/601685714359/802246204489/1002806694619/1203367184749

ysr

4244000与4294000之间的素数开头差为200560490130最多有7个连续素数:
/4286801/200564776931/401125267061/601685757191/802246247321/1002806737451/1203367227581

ysr

4294000与4394000之间的素数开头差为200560490130最多有7个连续素数:
/4323707/200564813837/401125303967/601685794097/802246284227/1002806774357/1203367264487
/4349153/200564839283/401125329413/601685819543/802246309673/1002806799803/1203367289933
/4384189/200564874319/401125364449/601685854579/802246344709/1002806834839/1203367324969

ysr

4444000与4494000之间的素数开头差为200560490130最多有8个连续素数:
/4444483/200564934613/401125424743/601685914873/802246405003/1002806895133/1203367385263/1403927875393
/4479989/200564970119/401125460249/601685950379/802246440509/1002806930639/1203367420769/1403927910899

ysr

4494000与4544000之间的素数开头差为200560490130最多有7个连续素数:
/4522619/200565012749/401125502879/601685993009/802246483139/1002806973269/1203367463399

ysr

4544000与4644000之间的素数开头差为200560490130最多有7个连续素数:
/4636319/200565126449/401125616579/601686106709/802246596839/1002807086969/1203367577099

ysr

200560490130=2*3*5*7*11*……*31，改天再把公差算的大一点试试吧。