求数列的通项公式

ysr

20904000与21004000之间的素数开头差为200560490130最多有7个连续素数:
/20949353/200581439483/401141929613/601702419743/802262909873/1002823400003/1203383890133

ysr

21304000与21404000之间的素数开头差为7420738134810最多有7个连续素数:
/21327611/7420759462421/14841497597231/22262235732041/29682973866851/37103712001661/44524450136471

ysr

20000与26000之间有0组4生素数对:
代码如下：
只发主程序
''618970019642690137449562114
Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
Q = Val(Text2)
m = Sqr(Q)
t = Trim(Text4)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
a2 = a
Do While a2 <= m
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0 Or InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 2
Loop
B1 = a2
b2 = a2 + 2
b3 = MPC1(Trim(b2), Trim(t))
b4 = MPC1(Trim(b3), 2)

c1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(b2))
c3 = fenjieyinzi0(Trim(b3))
D1 = fenjieyinzi0(Trim(b4))

If InStr(c1, "*") = 0 And InStr(D1, "*") = 0 And InStr(C2, "*") = 0 And InStr(c3, "*") = 0 Then
s = s + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & vbCrLf
Else
s = s
End If
a2 = a2 + 2

Loop
a2 = a2
s1 = s
Do While a2 <= Q
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0 Or InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 2
Loop
B1 = a2
b2 = a2 + 2
b3 = MPC1(Trim(b2), Trim(t))
b4 = MPC1(Trim(b3), 2)

c1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(b2))
c3 = fenjieyinzi0(Trim(b3))
D1 = fenjieyinzi0(Trim(b4))

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

Loop
Combo1 = a1 & "与" & Q & "之间有" & s1 & "组4生素数对:" & vbCrLf & Text3

End Sub

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

ysr

21404000与21504000之间的素数开头差为7420738134810最多有8个连续素数:
/21427643/7420759562453/14841497697263/22262235832073/29682973966883/37103712101693/44524450236503/51945188371313

ysr

21404000与21504000之间的素数开头差为7420738134810最多有8个连续素数:
/21427643/7420759562453/14841497697263/22262235832073/29682973966883/37103712101693/44524450236503/51945188371313

ysr

21504000与21604000之间的素数开头差为7420738134810最多有8个连续素数:
/21589549/7420759724359/14841497859169/22262235993979/29682974128789/37103712263599/44524450398409/51945188533219

ysr

21604000与21704000之间的素数开头差为7420738134810最多有7个连续素数:
/21654803/7420759789613/14841497924423/22262236059233/29682974194043/37103712328853/44524450463663

ysr

21804000与21904000之间的素数开头差为7420738134810最多有7个连续素数:
/21817603/7420759952413/14841498087223/22262236222033/29682974356843/37103712491653/44524450626463
/21828029/7420759962839/14841498097649/22262236232459/29682974367269/37103712502079/44524450636889

ysr

21804000与21904000之间的素数开头差为200560490130最多有7个连续素数:
/21888457/200582378587/401142868717/601703358847/802263848977/1002824339107/1203384829237
/21888953/200582379083/401142869213/601703359343/802263849473/1002824339603/1203384829733

ysr

21904000与22004000之间的素数开头差为200560490130最多有7个连续素数:
/21940409/200582430539/401142920669/601703410799/802263900929/1002824391059/1203384881189