数论问题巅峰对决

蔡家雄 · 发表于 2020-9-25 22:53

k=2, 有几个不同的素数p, 且 p<=n, 使

2n=24680=素数(p)+素数(2n-p)=素数(p+30k)+素数(2n-p-30k) 成立。

蔡氏偶数分拆：需要同时满足这两个等式，，

蔡家雄 · 发表于 2020-9-25 22:55

请 ysr 程序计算

k=2, 有几个不同的素数p, 且 p<=n, 使

2n=24680=素数(p)+素数(2n-p)=素数(p+30k)+素数(2n-p-30k) 成立。

蔡氏偶数分拆：需要同时满足这两个等式，，

ysr · 发表于 2020-9-25 22:59

本帖最后由 ysr 于 2020-9-25 15:14 编辑

改一下试试：（算到12340）
1与12340之间有33组p,p+60，24680-p-60，24680-p素数组:
181/241/24439/24499
571/631/24049/24109
709/769/23911/23971
751/811/23869/23929
991/1051/23629/23689
1549/1609/23071/23131
1609/1669/23011/23071
2179/2239/22441/22501
2557/2617/22063/22123
2617/2677/22003/22063
3019/3079/21601/21661
3121/3181/21499/21559
3301/3361/21319/21379
3733/3793/20887/20947
4447/4507/20173/20233
4507/4567/20113/20173
4591/4651/20029/20089
5347/5407/19273/19333
6367/6427/18253/18313
6997/7057/17623/17683
7237/7297/17383/17443
7639/7699/16981/17041
7699/7759/16921/16981
8647/8707/15973/16033
8761/8821/15859/15919
8803/8863/15817/15877
8941/9001/15679/15739
9403/9463/15217/15277
10273/10333/14347/14407
10399/10459/14221/14281
10987/11047/13633/13693
11239/11299/13381/13441
11617/11677/13003/13063

蔡家雄 · 发表于 2020-9-25 23:08

本帖最后由蔡家雄于 2020-9-25 23:10 编辑

，，，，，，，，，，，，，，，，，

蔡家雄 · 发表于 2020-9-25 23:11

但，24680-103=24577=7*3511 不是素数，

但，24680-139=24541=11*23*97 不是素数，

但，24680-151=24529=19*1291 不是素数，

需要满足四个：p，p+60，24680-p-60，24680-p 都是素数，

也不对哦

蔡家雄 · 发表于 2020-9-25 23:13

但，24680-103=24577=7*3511 不是素数，

但，24680-139=24541=11*23*97 不是素数，

但，24680-151=24529=19*1291 不是素数，

需要满足四个：p，p+60，24680-p-60，24680-p 都是素数，

也不对哦，编程存在漏洞，

ysr · 发表于 2020-9-25 23:18

嗯，程序不对了，改过来了。再算一下1~24620的，结果：
1与24620之间有66组p,p+60，24680-p-60，24680-p素数组:
181/241/24439/24499
571/631/24049/24109
709/769/23911/23971
751/811/23869/23929
991/1051/23629/23689
1549/1609/23071/23131
1609/1669/23011/23071
2179/2239/22441/22501
2557/2617/22063/22123
2617/2677/22003/22063
3019/3079/21601/21661
3121/3181/21499/21559
3301/3361/21319/21379
3733/3793/20887/20947
4447/4507/20173/20233
4507/4567/20113/20173
4591/4651/20029/20089
5347/5407/19273/19333
6367/6427/18253/18313
6997/7057/17623/17683
7237/7297/17383/17443
7639/7699/16981/17041
7699/7759/16921/16981
8647/8707/15973/16033
8761/8821/15859/15919
8803/8863/15817/15877
8941/9001/15679/15739
9403/9463/15217/15277
10273/10333/14347/14407
10399/10459/14221/14281
10987/11047/13633/13693
11239/11299/13381/13441
11617/11677/13003/13063
13003/13063/11617/11677
13381/13441/11239/11299
13633/13693/10987/11047
14221/14281/10399/10459
14347/14407/10273/10333
15217/15277/9403/9463
15679/15739/8941/9001
15817/15877/8803/8863
15859/15919/8761/8821
15973/16033/8647/8707
16921/16981/7699/7759
16981/17041/7639/7699
17383/17443/7237/7297
17623/17683/6997/7057
18253/18313/6367/6427
19273/19333/5347/5407
20029/20089/4591/4651
20113/20173/4507/4567
20173/20233/4447/4507
20887/20947/3733/3793
21319/21379/3301/3361
21499/21559/3121/3181
21601/21661/3019/3079
22003/22063/2617/2677
22063/22123/2557/2617
22441/22501/2179/2239
23011/23071/1609/1669
23071/23131/1549/1609
23629/23689/991/1051
23869/23929/751/811
23911/23971/709/769
24049/24109/571/631
24439/24499/181/241

ysr · 发表于 2020-9-25 23:20

这回明显重复了，对称出现了，应该是33组。这样就对了吧？

ysr · 发表于 2020-9-25 23:22

别熬夜，晚安！好好休息吧！这两个等式同时满足的p值有33个！

ysr · 发表于 2020-9-25 23:24

代码如下：（只发主程序）
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 + 60
b3 = 24680 - b
b5 = 24680 - a
c = fenjieyinzi0(Val(a))
d = fenjieyinzi0(Val(b))
D3 = fenjieyinzi0(Val(b3))
d5 = fenjieyinzi0(Val(b5))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 And InStr(D3, "*") = 0 And InStr(d5, "*") = 0 Then
s = s + 1
Print a, b, a + 30
Text3 = Text3 & a & "/" & b & "/" & b3 & "/" & b5 & vbCrLf
Else
s = s
End If
a = a + 2
Loop
a2 = a
s1 = s
Do While a2 <= Q
B1 = a2 + 60
b4 = 24680 - B1
b6 = 24680 - a2
c1 = fenjieyinzi0(Val(a2))
D1 = fenjieyinzi0(Val(B1))
D4 = fenjieyinzi0(Val(b4))
D6 = fenjieyinzi0(Val(b6))
If InStr(c1, "*") = 0 And InStr(D1, "*") = 0 And InStr(D4, "*") = 0 And InStr(D6, "*") = 0 Then
s1 = s1 + 1
Print a2, B1, a2 + 30
Text3 = Text3 & a2 & "/" & B1 & "/" & b4 & "/" & b6 & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 2

Loop
Combo1 = a1 & "与" & Q & "之间有" & s1 & "组p,p+60，24680-p-60，24680-p素数组:" & 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

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