孪中比猜想（专贴）

ysr

a=88499492231040b=91723434739200而29982与40000之间的素数打头有1组差为2和d*m-m和2的4生素数对: (用时-53478.92秒）b2=
/2874979338465484799/2874979338465484801/2773928084489717759/2773928084489717761/31344

ysr

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

Private Sub Command1_Click() '求由2个孪生素数对组成的4生素数组的程序
Dim A, B
A = Trim(Text1)
a1 = A
aq = Trim(Text2)
aq1 = Trim(Text5)
q = 30000
m = Sqr(q)
t = Val(Text4)
t1 = t
ts = Timer

s = 0

Do While t <= m

B2 = MPC(MbC(Trim(A), Trim(t)), 1)
b3 = MPC1(Trim(B2), 2)
B4 = MPC(MbC(Trim(aq), Trim(t)), 1)
b5 = MPC1(Trim(B4), 2)
B6 = MPC(MbC(Trim(aq1), Trim(t)), 1)
b7 = MPC1(Trim(B6), 2)
C6 = fenjieyinzi0(Trim(B6))
C7 = fenjieyinzi0(Trim(b7))
C4 = fenjieyinzi0(Trim(B4))
C5 = fenjieyinzi0(Trim(b5))

C2 = fenjieyinzi0(Trim(B2))
C3 = fenjieyinzi0(Trim(b3))
If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 And InStr(C3, "*") = 0 And InStr(C4, "*") = 0 And InStr(C5, "*") = 0 And InStr(C6, "*") = 0 And InStr(C7, "*") = 0 Then
s = s + 1
Print B2
Text3 = Text3 & "/" & B4 & "/" & b5 & "/" & B2 & "/" & b3 & "/" & t & vbCrLf
Else
s = s
End If
t = Val(t + 1)

Loop

s1 = s
Do While t <= q

B2 = MPC(MbC(Trim(A), Trim(t)), 1)
b3 = MPC1(Trim(B2), 2)
B4 = MPC(MbC(Trim(aq), Trim(t)), 1)
b5 = MPC1(Trim(B4), 2)
B6 = MPC(MbC(Trim(aq1), Trim(t)), 1)
b7 = MPC1(Trim(B6), 2)
C6 = fenjieyinzi0(Trim(B6))
C7 = fenjieyinzi0(Trim(b7))
C4 = fenjieyinzi0(Trim(B4))
C5 = fenjieyinzi0(Trim(b5))
C2 = fenjieyinzi0(Trim(B2))
C3 = fenjieyinzi0(Trim(b3))
If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 And InStr(C3, "*") = 0 And InStr(C4, "*") = 0 And InStr(C5, "*") = 0 And InStr(C6, "*") = 0 And InStr(C7, "*") = 0 Then
s1 = s1 + 1
Print B1, B2
Text3 = Text3 & "/" & B4 & "/" & b5 & "/" & B2 & "/" & b3 & "/" & t & vbCrLf
Else
s1 = s1
End If
t = Val(t + 1)

Loop
Combo1 = "a=" & a1 & "b=" & aq & "c=" & aq1 & "而" & t1 & "与" & q & "之间的素数打头有" & s1 & "组差为2和d*m-m和2的4生素数对: (用时" & Timer - ts & "秒）b2=" & vbCrLf & Text3

End Sub

蔡家雄

ysr 发表于 2021-7-5 07:57
代码如下：（只发主程序）

Private Sub Command1_Click() '求由2个孪生素数对组成的4生素数组的程序

数字大了不好找，

改为数字较小，但，增加项数，可以吗？

1 : 3 : 5 : 7 = m1 : m2 : m3 : m4 ,  k = 有解！！！

1 : 3 : 5 : 7 : 9 = m1 : m2 : m3 : m4 : m5 ,  k = 有解吗？？？

ysr

a=1b=3c=5d=7而2与10000之间的素数打头有1组差为2和d*m-m和2的4生素数对: (用时3.59375秒）b2=
/41/29/17/5/7/6

ysr

a=2598742440b=4331237400c=6063732360而120000与130000之间的素数打头有0组差为2和d*m-m和2的4生素数对: (用时-38411秒）b2=


a=1b=3c=5d=7而80000与90000之间的素数打头有0组差为2和d*m-m和2的4生素数对: (用时375.9375秒）b2=

ysr

a=1b=3c=5d=7e=9而1000000与1100000之间的素数打头有0组10生素数对: (用时353.8242秒）b2=

a=1b=3c=5d=7e=9而1300000与1500000之间的素数打头有0组10生素数对: (用时853.1836秒）b2=

ysr

代码如下：

Private Sub Command1_Click() '求由2个孪生素数对组成的4生素数组的程序
Dim A, B
A = Trim(Text1)
a1 = A
aq = Trim(Text2)
aq1 = Trim(Text5)
aq2 = Trim(Text6)
aq3 = 9
q = 1100000
m = Sqr(q)
t = Val(Text4)
t1 = t
ts = Timer

s = 0

Do While t <= m

B2 = MPC(MbC(Trim(A), Trim(t)), 1)
b3 = MPC1(Trim(B2), 2)
b4 = MPC(MbC(Trim(aq), Trim(t)), 1)
b5 = MPC1(Trim(b4), 2)
b6 = MPC(MbC(Trim(aq1), Trim(t)), 1)
b7 = MPC1(Trim(b6), 2)
b8 = MPC(MbC(Trim(aq2), Trim(t)), 1)
b9 = MPC1(Trim(b8), 2)
b10 = MPC(MbC(Trim(aq3), Trim(t)), 1)
b11 = MPC1(Trim(b10), 2)
C10 = fenjieyinzi0(Trim(b10))
C11 = fenjieyinzi0(Trim(b11))
C8 = fenjieyinzi0(Trim(b8))
C9 = fenjieyinzi0(Trim(b9))
C6 = fenjieyinzi0(Trim(b6))
C7 = fenjieyinzi0(Trim(b7))
C4 = fenjieyinzi0(Trim(b4))
C5 = fenjieyinzi0(Trim(b5))

C2 = fenjieyinzi0(Trim(B2))
C3 = fenjieyinzi0(Trim(b3))
If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 And InStr(C8, "*") = 0 And InStr(C9, "*") = 0 And InStr(C3, "*") = 0 And InStr(C10, "*") = 0 And InStr(C11, "*") = 0 And InStr(C4, "*") = 0 And InStr(C5, "*") = 0 And InStr(C6, "*") = 0 And InStr(C7, "*") = 0 Then
s = s + 1
Print B2
Text3 = Text3 & "/" & b10 & "/" & b8 & "/" & b6 & "/" & b4 & "/" & B2 & "/" & b3 & "/" & t & vbCrLf
Else
s = s
End If
t = Val(t + 1)

Loop

s1 = s
Do While t <= q

B2 = MPC(MbC(Trim(A), Trim(t)), 1)
b3 = MPC1(Trim(B2), 2)
b4 = MPC(MbC(Trim(aq), Trim(t)), 1)
b5 = MPC1(Trim(b4), 2)
b6 = MPC(MbC(Trim(aq1), Trim(t)), 1)
b7 = MPC1(Trim(b6), 2)
b8 = MPC(MbC(Trim(aq2), Trim(t)), 1)
b9 = MPC1(Trim(b8), 2)
b10 = MPC(MbC(Trim(aq3), Trim(t)), 1)
b11 = MPC1(Trim(b10), 2)
C10 = fenjieyinzi0(Trim(b10))
C11 = fenjieyinzi0(Trim(b11))
C8 = fenjieyinzi0(Trim(b8))
C9 = fenjieyinzi0(Trim(b9))
C6 = fenjieyinzi0(Trim(b6))
C7 = fenjieyinzi0(Trim(b7))
C4 = fenjieyinzi0(Trim(b4))
C5 = fenjieyinzi0(Trim(b5))
C2 = fenjieyinzi0(Trim(B2))
C3 = fenjieyinzi0(Trim(b3))
If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 And InStr(C3, "*") = 0 And InStr(C10, "*") = 0 And InStr(C11, "*") = 0 And InStr(C8, "*") = 0 And InStr(C9, "*") = 0 And InStr(C4, "*") = 0 And InStr(C5, "*") = 0 And InStr(C6, "*") = 0 And InStr(C7, "*") = 0 Then
s1 = s1 + 1
Print B1, B2
Text3 = Text3 & "/" & b10 & "/" & b8 & "/" & b6 & "/" & b4 & "/" & B2 & "/" & b3 & "/" & t & vbCrLf
Else
s1 = s1
End If
t = Val(t + 1)

Loop
Combo1 = "a=" & a1 & "b=" & aq & "c=" & aq1 & "d=" & aq2 & "e=" & aq3 & "而" & t1 & "与" & q & "之间的素数打头有" & s1 & "组10生素数对: (用时" & Timer - ts & "秒）b2=" & vbCrLf & Text3

End Sub