陈景润(证明哥德巴赫猜想1+2的论文)大偶数表为一个素数及一个不超过二个素数的乘积...

蔡家雄

蔡氏偶数(1+2)分拆（最小解）

设 2n >=32，且 p1, p2=p1+30, p3, p4 都是素数，

且 p3 <=p4,  且 p3 是与2n, 2n+30 都互素的最小素数，

则 2n=p1+p3*p4 , 2n+30=p2+p3*p4 至少有一组素数(p1, p2, p3, p4)解。


蔡氏偶数(1+2)分拆（最小解）

设 2n >=62，且 p1, p2=p1+210, p3=p1+630, p4, p5 都是素数，

且 p4 <=p5,  且 p4 是与2n, 2n+210, 2n+630 都互素的最小素数，

则 2n=p1+p4*p5 , 2n+210=p2+p4*p5 , 2n+630=p3+p4*p5 至少有一组素数(p1, p2, p3, p4, p5)解。


蔡氏偶数(1+2)分拆（最小解）

设 2n >=62，且 p1, p2=p1+420, p3=p1+840, p4, p5 都是素数，

且 p4 <=p5,  且 p4 是与2n, 2n+420, 2n+840 都互素的最小素数，

则 2n=p1+p4*p5 , 2n+420=p2+p4*p5 , 2n+840=p3+p4*p5 至少有一组素数(p1, p2, p3, p4, p5)解。

njzz_yy

lusishun 发表于 2021-3-25 21:21
熊一兵先生作诗祝贺，一直鼓舞着我，滋润着我，我十二分的感激熊一兵网友。

希望自己与鲁先生：共同进步再上楼，昔日大树长新枝，

wangyangke

定理：熊一兵作诗祝贺的的那个哥猜证明的证明人鲁思顺是个二百五。

lusishun

wangyangke 发表于 2022-6-11 02:31
定理：熊一兵作诗祝贺的的那个哥猜证明的证明人鲁思顺是个二百五。

你的定理，是需要证明的。没有证明 是不是，欠妥乎

njzz_yy

njzz_yy 发表于 2022-6-11 10:18
希望自己与鲁先生：共同进步再上楼，昔日大树长新枝，

lusishun ：有机会，能见面，喝酒。人生能有几时醉啊 在网上认识 近二十年了  发表于 2022-6-11 10:27

谢谢鲁先生提议，应该有这一天，我近年研究减少了，更多精力用于整理，希望我的结果能发表，或再次出书，希望鲁先生见到我的结果后，不要太吃惊，

蔡家雄

蔡氏偶数(1+2)分拆（最小解）

设 2n >=62，且 p1, p2=p1+210, p3=p1+630, p4, p5 都是素数，

且 p4 <=p5,  且 p4 是与2n, 2n+210, 2n+630 都互素的最小素数，

则 2n=p1+p4*p5 , 2n+210=p2+p4*p5 , 2n+630=p3+p4*p5 至少有一组素数(p1, p2, p3, p4, p5)解。

例 p4=5 是与2022 , 2022+210 , 2022+630 都互素的最小素数，

2022=1787+5*47，
2022=1667+5*71，
2022=1657+5*73，
2022=1277+5*149，
2022=1867+5*157，
2022=1117+5*181，
2022=0677+5*269，
2022=0467+5*311，
2022=0367+5*331，
2022=0337+5*337，
2022=0277+5*349，
2022=0257+5*353，
2022=0157+5*373，
2022=0127+5*379，
2022=0017+5*401.


蔡氏偶数(1+2)分拆（最小解）

设 2n >=62，且 p1, p2=p1+420, p3=p1+840, p4, p5 都是素数，

且 p4 <=p5,  且 p4 是与2n, 2n+420, 2n+840 都互素的最小素数，

则 2n=p1+p4*p5 , 2n+420=p2+p4*p5 , 2n+840=p3+p4*p5 至少有一组素数(p1, p2, p3, p4, p5)解。

例 p4=5 是与2022 , 2022+420 , 2022+840 都互素的最小素数，

2022=1997+5*5，
2022=1867+5*31，
2022=1607+5*83，
2022=1367+5*131，
2022=1187+5*167，
2022=0907+5*223，
2022=0857+5*233，
2022=0487+5*307，
2022=0467+5*311，
2022=0457+5*313，
2022=0257+5*353，
2022=0157+5*373，
2022=0127+5*379，
2022=0037+5*397.

ysr

70+12n的结果：
200内有34组蔡氏素数:
53( 4+49),17(1+16),19,4n+2=70
89( 25+64),5(1+4),7,4n+2=94
5( 1+4),101(1+100),103,4n+2=106
89( 25+64),17(1+16),19,4n+2=106
101( 1+100),5(1+4),7,4n+2=106
17( 1+16),101(1+100),103,4n+2=118
101( 1+100),17(1+16),19,4n+2=118
113( 49+64),5(1+4),7,4n+2=118
29( 4+25),101(1+100),103,4n+2=130
113( 49+64),17(1+16),19,4n+2=130
41( 16+25),101(1+100),103,4n+2=142
137( 16+121),5(1+4),7,4n+2=142
53( 4+49),101(1+100),103,4n+2=154
137( 16+121),17(1+16),19,4n+2=154
149( 49+100),5(1+4),7,4n+2=154
149( 49+100),17(1+16),19,4n+2=166
173( 4+169),5(1+4),7,4n+2=178
89( 25+64),101(1+100),103,4n+2=190
173( 4+169),17(1+16),19,4n+2=190
5( 1+4),197(1+196),199,4n+2=202
101( 1+100),101(1+100),103,4n+2=202
197( 1+196),5(1+4),7,4n+2=202
17( 1+16),197(1+196),199,4n+2=214
113( 49+64),101(1+100),103,4n+2=214
197( 1+196),17(1+16),19,4n+2=214
29( 4+25),197(1+196),199,4n+2=226
41( 16+25),197(1+196),199,4n+2=238
137( 16+121),101(1+100),103,4n+2=238
53( 4+49),197(1+196),199,4n+2=250
149( 49+100),101(1+100),103,4n+2=250
173( 4+169),101(1+100),103,4n+2=274
89( 25+64),197(1+196),199,4n+2=286
101( 1+100),197(1+196),199,4n+2=298
197( 1+196),101(1+100),103,4n+2=298
用时0.34000000000291秒

ysr

Private Sub Command1_Click()
Dim a, B, q
Dim t As Double
t = Timer

q = Val(Text1)
m = 70
Do While m <= 300

p1 = 5

Do While p1 <= q And p1 <= m
a1 = 1
B1 = Sqr(Val(p1 - a1 ^ 2))
Do While InStr(B1, ".") <> 0 And p1 > Val(a1 ^ 2)
a1 = a1 + 1
B1 = Sqr(Abs(Val(p1 - a1 ^ 2)))
Loop
p2 = m - p1

C2 = 1
D2 = Sqr(Val(p2 - C2 ^ 2))
Do While InStr(C2, ".") <> 0 And p2 > Val(C2 ^ 2)
C2 = C2 + 1
D2 = Sqr(Val(p2 - C2 ^ 2))
Loop

p3 = Abs(Val(p2 + 2))


a = fenjieyinzi(Val(p1))
B = fenjieyinzi(Val(p2))
c = fenjieyinzi(Val(p3))


If InStr(a, "*") = 0 And InStr(B, "*") = 0 And InStr(c, "*") = 0 And InStr(B1, ".") = 0 And InStr(D2, ".") = 0 Then
s = s + 1
Print p1, p2, p3, p4
Text2 = Text2 & CStr(p1) & "( " & a1 ^ 2 & "+" & B1 ^ 2 & ")," & CStr(p2) & "(" & C2 ^ 2 & "+" & D2 ^ 2 & ")," & p3 & ",4n+2=" & m & vbCrLf

Else
s = s
End If


p1 = Val(p1 + 2)

Loop
m = Val(m + 12)
Loop
Combo1 = q & "内有" & s & "组蔡氏素数:" & vbCrLf & Text2 & "用时" & Timer - t & "秒"

End Sub

ysr

200内有49组蔡氏素数:
13( 4+9),61(1+60),59,4n+2=74
61( 25+36),13(1+12),11,4n+2=74
13( 4+9),73(1+72),71,4n+2=86
73( 9+64),13(1+12),11,4n+2=86
37( 1+36),61(1+60),59,4n+2=98
37( 1+36),73(1+72),71,4n+2=110
97( 16+81),13(1+12),11,4n+2=110
13( 4+9),109(1+108),107,4n+2=122
61( 25+36),61(1+60),59,4n+2=122
109( 9+100),13(1+12),11,4n+2=122
61( 25+36),73(1+72),71,4n+2=134
73( 9+64),61(1+60),59,4n+2=134
37( 1+36),109(1+108),107,4n+2=146
73( 9+64),73(1+72),71,4n+2=146
97( 16+81),61(1+60),59,4n+2=158
61( 25+36),109(1+108),107,4n+2=170
97( 16+81),73(1+72),71,4n+2=170
109( 9+100),61(1+60),59,4n+2=170
157( 36+121),13(1+12),11,4n+2=170
73( 9+64),109(1+108),107,4n+2=182
109( 9+100),73(1+72),71,4n+2=182
13( 4+9),181(1+180),179,4n+2=194
181( 81+100),13(1+12),11,4n+2=194
13( 4+9),193(1+192),191,4n+2=206
97( 16+81),109(1+108),107,4n+2=206
193( 49+144),13(1+12),11,4n+2=206
37( 1+36),181(1+180),179,4n+2=218
109( 9+100),109(1+108),107,4n+2=218
157( 36+121),61(1+60),59,4n+2=218
37( 1+36),193(1+192),191,4n+2=230
157( 36+121),73(1+72),71,4n+2=230
13( 4+9),229(1+228),227,4n+2=242
61( 25+36),181(1+180),179,4n+2=242
181( 81+100),61(1+60),59,4n+2=242
13( 4+9),241(1+240),239,4n+2=254
61( 25+36),193(1+192),191,4n+2=254
73( 9+64),181(1+180),179,4n+2=254
181( 81+100),73(1+72),71,4n+2=254
193( 49+144),61(1+60),59,4n+2=254
37( 1+36),229(1+228),227,4n+2=266
73( 9+64),193(1+192),191,4n+2=266
157( 36+121),109(1+108),107,4n+2=266
193( 49+144),73(1+72),71,4n+2=266
37( 1+36),241(1+240),239,4n+2=278
97( 16+81),181(1+180),179,4n+2=278
61( 25+36),229(1+228),227,4n+2=290
97( 16+81),193(1+192),191,4n+2=290
109( 9+100),181(1+180),179,4n+2=290
181( 81+100),109(1+108),107,4n+2=290
用时0.377000000003029秒

ysr

Private Sub Command1_Click()
Dim a, B, q
Dim t As Double
t = Timer

q = Val(Text1)
m = 74
Do While m <= 300

p1 = 5

Do While p1 <= q And p1 <= m
a1 = 1
B1 = Sqr(Val(p1 - a1 ^ 2))
Do While InStr(B1, ".") <> 0 And p1 > Val(a1 ^ 2)
a1 = a1 + 1
B1 = Sqr(Abs(Val(p1 - a1 ^ 2)))
Loop
p2 = m - p1

C2 = 1
D2 = Sqr(Val(p2 - C2 ^ 2))
Do While InStr(C2, ".") <> 0 And p2 > Val(C2 ^ 2)
C2 = C2 + 1
D2 = Sqr(Val(p2 - C2 ^ 2))
Loop

p3 = Abs(Val(p2 - 2))


a = fenjieyinzi(Val(p1))
B = fenjieyinzi(Val(p2))
c = fenjieyinzi(Val(p3))


If InStr(a, "*") = 0 And InStr(B, "*") = 0 And InStr(c, "*") = 0 And InStr(B1, ".") = 0 And InStr(d, ".") = 0 Then
s = s + 1
Print p1, p2, p3, p4
Text2 = Text2 & CStr(p1) & "( " & a1 ^ 2 & "+" & B1 ^ 2 & ")," & CStr(p2) & "(" & C2 ^ 2 & "+" & D2 ^ 2 & ")," & p3 & ",4n+2=" & m & vbCrLf

Else
s = s
End If


p1 = Val(p1 + 2)

Loop
m = Val(m + 12)
Loop
Combo1 = q & "内有" & s & "组蔡氏素数:" & vbCrLf & Text2 & "用时" & Timer - t & "秒"

End Sub