数论探秘电子书

ysr

数论探秘电子书：
https://app.kuhuace.com/player/index.html?id=1404133033337946113

ysr

哥德巴赫猜想和孪生素数猜想根本不是啥难题，咋还是至今未解决呢？还说啥非解析数论莫谈！！
其实解析数论仅仅是可能解决个充分条件，不是啥充要条件。哥德巴赫猜想成立的充分条件可以很多，所以，证明方法很多，不是非解析数论不可的。
哥德巴赫猜想成立的必要条件是，素数无穷多且越来越稀，甚至是疏密相间的。这已经被专家证明过了。
所以，哥德巴赫猜想的证明不难，可以有多种方法。咋成了至今“未解决的难题”了？

其实看看证明的历史就会明白：
“9+9”，“7+7”，“6+6”，…………，“1+3”，“1+2”……，
从这些数字就可以看出来，数学家，“专门家”的思路，总是“本末倒置”的。总是 想与高等数学和深奥的解析数论联系的。所以，走了弯路，始终不能成功。
“专门家”喜欢“定量研究”，而哥德巴赫猜想其实不需要定量研究，只要回答是不是，有没有，对不对，即可。哪里需要啥解析数论了？甚至，我们可以有根本不需要计算的理论，仅仅用到初等数学中的集合知识就可以。

有的“专门家”非要搞个“精确的公式”，“非常逼近实际”，其实，精确的素数个数公式已经很难，最“逼近实际的公式”是黎曼搞出来的，但是，即使逼近实际了，误差非常小了，那也必须证明，才是正确的公式，否则，只能是猜想或者好听点说是经验公式，是不能用于证明的，这个公式的正确性据说，取决于黎曼猜想是否正确，那就麻烦了，所以，至今未解决成了啥“未解决的难题”！！

在哥德巴赫猜想和孪生素数猜想的证明上，某些“专门家”的认识，简直能让猴哥笑出猪叫声了！


我刚才在手机上搜索的，可能是AI自动生成的吧？每点一次和一次不太一样，比我自己吹的还好！

ysr

偶数40和100之间的偶数的方根内最少拆分个数为：0， 分别列表如下：
（偶数） （偶数方根内的素数和对个数） （总素数和对个数）
40 1  3
42 1  4
44 1  3
46 2  4
48 1  5
50 2  4
52 1  3
54 1  5
56 1  3
58 1  4
60 1  6
62 1  3
64 2  5
66 2  6
68 1  2
70 1  5
72 1  6
74 2  5
76 2  5
78 2  7
80 1  4
82 1  5
84 1  8
86 2  5
88 1  4
90 1  9
92 1  4
94 1  5
96 1  7
98 0  3
100 1  6

ysr

偶数100和200之间的偶数的方根内最少拆分个数为：0， 分别列表如下：
（偶数） （偶数方根内的素数和对个数） （总素数和对个数）
100 1  6
102 1  8
104 2  5
106 2  6
108 2  8
110 2  6
112 2  7
114 2  10
116 2  6
118 1  6
120 1  12
122 0  4
124 1  5
126 0  10
128 0  3
130 1  7
132 1  9
134 2  6
136 1  5
138 2  8
140 1  7
142 3  8
144 2  11
146 1  6
148 1  5
150 1  12
152 1  4
154 2  8
156 2  11
158 1  5
160 2  8
162 2  10
164 1  5
166 1  6
168 2  13
170 3  9
172 1  6
174 2  11
176 2  7
178 2  7
180 2  14
182 1  6
184 3  8
186 3  13
188 1  5
190 1  8
192 2  11
194 2  7
196 2  9
198 2  13
200 2  8

ysr

偶数200和400之间的偶数的方根内最少拆分个数为：0， 分别列表如下：
（偶数） （偶数方根内的素数和对个数） （总素数和对个数）
200 2  8
202 3  9
204 4  14
206 2  7
208 1  7
210 2  19
212 1  6
214 1  8
216 1  13
218 1  7
220 0  9
222 1  11
224 1  7
226 1  7
228 1  12
230 2  9
232 2  7
234 3  15
236 3  9
238 2  9
240 3  18
242 2  8
244 3  9
246 3  16
248 1  6
250 1  9
252 2  16
254 2  9
256 1  8
258 1  14
260 1  10
262 2  9
264 2  16
266 1  8
268 2  9
270 2  19
272 1  7
274 3  11
276 3  16
278 1  7
280 2  14
282 3  16
284 3  8
286 2  12
288 3  17
290 2  10
292 1  8
294 3  19
296 2  8
298 2  11
300 2  21
302 0  9
304 1  10
306 1  15
308 0  8
310 2  12
312 1  17
314 2  9
316 2  10
318 3  15
320 3  11
322 2  11
324 4  20
326 1  7
328 2  10
330 2  24
332 0  6
334 2  11
336 1  19
338 1  9
340 1  13
342 2  17
344 2  10
346 0  9
348 2  16
350 2  13
352 2  10
354 3  20
356 2  9
358 2  10
360 3  22
362 2  8
364 3  14
366 4  18
368 1  8
370 3  14
372 3  18
374 1  10
376 2  11
378 3  22
380 2  13
382 1  10
384 3  19
386 4  12
388 1  9
390 3  27
392 3  11
394 2  11
396 3  21
398 1  7
400 3  14

ysr

40的方根为6.32455532033676,方根内有1个，比例（个数/方根）0.158113883008419总数有3个,方根内的:
40=3+ 37
42的方根为6.48074069840786,方根内有1个，比例（个数/方根）0.154303349962092总数有4个,方根内的:
42=5+ 37
44的方根为6.6332495807108,方根内有1个，比例（个数/方根）0.150755672288882总数有3个,方根内的:
44=3+ 41

ysr

40的方根为6.32455532033676,方根内有1个，比例（个数/方根）0.158113883008419总数有3个,总对数:
40=3+ 37
11+ 29
17+ 23
42的方根为6.48074069840786,方根内有1个，比例（个数/方根）0.154303349962092总数有4个,总对数:
42=5+ 37
11+ 31
13+ 29
19+ 23
44的方根为6.6332495807108,方根内有1个，比例（个数/方根）0.150755672288882总数有3个,总对数:
44=3+ 41
7+ 37
13+ 31

ysr

120的方根为10.9544511501033,方根内有1个，比例（个数/方根）9.12870929175277E-02总数有12个,总对数:
120=7+ 113
11+ 109
13+ 107
17+ 103
19+ 101
23+ 97
31+ 89
37+ 83
41+ 79
47+ 73
53+ 67
59+ 61
122的方根为11.0453610171873,方根内有0个，比例（个数/方根）0总数有4个,总对数:
122=13+ 109
19+ 103
43+ 79
61+ 61
124的方根为11.13552872566,方根内有1个，比例（个数/方根）8.98026510133875E-02总数有5个,总对数:
124=11+ 113
17+ 107
23+ 101
41+ 83
53+ 71
126的方根为11.2249721603218,方根内有0个，比例（个数/方根）0总数有10个,总对数:
126=13+ 113
17+ 109
19+ 107
23+ 103
29+ 97
37+ 89
43+ 83
47+ 79
53+ 73
59+ 67
128的方根为11.3137084989848,方根内有0个，比例（个数/方根）0总数有3个,总对数:
128=19+ 109
31+ 97
61+ 67

ysr

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For I = 3 To 2 * b + 1 Step 2
If x Mod I = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If

End Function





Private Sub Command1_Click()
Dim a, b
a = Val(Text1)

m1 = Val(Text3)
Do While a <= m1
s = 0
Text2 = ""
m = Sqr(a)
a1 = 3
Do While a1 <= m
b = a - a1
c = fenjieyinzi(Val(a1))
d = fenjieyinzi(Val(b))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 Then
s = s + 1
Print a1, "+", b
Text2 = Text2 & CStr(a1) & "+ " & CStr(b) & vbCrLf
Else
s = s
End If
a1 = a1 + 2
Loop
a2 = a1
s1 = s
Do While a2 <= a / 2
b1 = a - a2
C1 = fenjieyinzi(Val(a2))
D1 = fenjieyinzi(Val(b1))

If InStr(C1, "*") = 0 And InStr(D1, "*") = 0 Then
s1 = s1 + 1
Print a2, "+", b1
Text2 = Text2 & CStr(a2) & "+ " & CStr(b1) & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 2

Loop
s11 = s11 & a & "的方根为" & m & "," & "方根内有" & s & "个，比例（个数/方根）" & s / m & "总数有" & s1 & "个,总对数:" & vbCrLf & a & "=" & Text2

a = a + 2
Loop
Combo1 = s11

End Sub

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

ysr

偶数26和40之间的偶数的方根内最少拆分个数为：0， 分别列表如下：
（偶数） （偶数方根内的素数和对个数） （总素数和对个数）
26 1  3
28 1  2
30 0  3
32 1  2
34 2  4
36 1  4
38 0  2
40 1  3