数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
楼主: ysr

简单明了容易理解和证明的猜想

[复制链接]
 楼主| 发表于 2023-2-19 07:11 | 显示全部楼层
偶数460000和480000之间的偶数的方根内最少拆分个数为:3, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于4的) (总素数和对个数)
460048 3  2132
460946 4  2166
461972 4  2547
463058 4  2087
463984 4  2210
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-19 09:19 | 显示全部楼层
'代码如下,有vb6.0的话复制黏贴就可以运行的:

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)
a3 = a
q = Val(Text2)
Do While a <= q
s = 0
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

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

Else
s1 = s1
End If

a2 = a2 + 2

Loop
If s <= 6 Then
Text3 = Text3 & CStr(a) & " " & CStr(s) & "  " & CStr(s1) & vbCrLf
Print a, s, s1
s2 = s2 & "/" & s
If s = 0 Then s5 = s5 & CStr(a) & " " & CStr(s) & "  " & CStr(s1) & vbCrLf: s7 = s7 + 1
Else
s2 = s2
End If
a = a + 2
Loop
s3 = Mid(s2, 2)
s4 = min(Trim(s3))
s6 = "(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)"
s8 = "含有0个小根拆的偶数有" & s7 & "个分别如下:"
Combo1.Text = "偶数" & a3 & "和" & q & "之间的偶数的方根内最少拆分个数为:" & s4 & ", 分别列表如下:" & vbCrLf & s6 & vbCrLf & Text3.Text
Text4 = s8 & vbCrLf & s5
End Sub

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

Private Function min(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
temp = a(0)
For b = 0 To UBound(a)
If temp > a(b) Then temp = a(b)
Next
min = temp
End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-19 09:48 | 显示全部楼层
本帖最后由 ysr 于 2023-2-20 08:46 编辑

'代码如下,有vb6.0的话复制黏贴就可以运行的(对于小数据用这个程序会把结果全部显示的而不是仅仅显示低于某值的低谷值数据):

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)
a3 = a
q = Val(Text2)
Do While a <= q
s = 0
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

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

Else
s1 = s1
End If

a2 = a2 + 2

Loop

Text3 = Text3 & CStr(a) & " " & CStr(s) & "  " & CStr(s1) & vbCrLf
Print a, s, s1
s2 = s2 & "/" & s
If s = 0 Then s5 = s5 & CStr(a) & " " & CStr(s) & "  " & CStr(s1) & vbCrLf: s7 = s7 + 1

a = a + 2
Loop
s3 = Mid(s2, 2)
s4 = min(Trim(s3))
s6 = "(偶数) (偶数方根内的素数和对个数) (总素数和对个数)"
s8 = "含有0个小根拆的偶数有" & s7 & "个分别如下:"
Combo1.Text = "偶数" & a3 & "和" & q & "之间的偶数的方根内最少拆分个数为:" & s4 & ", 分别列表如下:" & vbCrLf & s6 & vbCrLf & Text3.Text
Text4 = s8 & vbCrLf & s5
End Sub

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

Private Function min(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
temp = a(0)
For b = 0 To UBound(a)
If temp > a(b) Then temp = a(b)
Next
min = temp
End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-19 10:00 | 显示全部楼层
比如1000~2000就开始含有有6个小根拆的偶数了,这些都可以显示出来的:
含有6个小根拆的偶数有15个分别如下:
1314 6  46
1320 6  66
1446 6  45
1458 6  48
1464 6  47
1470 6  73
1500 6  67
1590 6  71
1620 6  65
1626 6  55
1632 6  60
1638 6  67
1764 6  69
1908 6  58
1920 6  81
含有7个小根拆的偶数有3个分别如下:
1308 7  46
1884 7  61
1890 7  91
总1000~2000偶数的情况显示如下:
偶数1000和2000之间的偶数的方根内最少拆分个数为:0, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)
1000 4  28
1002 4  36
1004 2  18
1006 2  18
1008 3  42
1010 2  25
1012 2  23
1014 4  39
1016 3  18
1018 1  20
1020 4  51
1022 3  18
1024 3  22
1026 5  42
1028 3  18
1030 2  25
1032 4  36
1034 2  21
1036 4  27
1038 5  40
1040 3  26
1042 4  22
1044 5  39
1046 2  19
1048 2  19
1050 5  57
1052 4  18
1054 3  24
1056 4  44
1058 2  19
1060 2  27
1062 5  37
1064 3  24
1066 3  24
1068 5  39
1070 3  25
1072 3  21
1074 4  40
1076 2  20
1078 2  27
1080 5  54
1082 3  20
1084 1  21
1086 2  39
1088 1  18
1090 2  26
1092 4  48
1094 3  23
1096 2  18
1098 4  40
1100 4  28
1102 2  24
1104 4  44
1106 3  25
1108 3  25
1110 5  54
1112 2  16
1114 4  23
1116 5  41
1118 1  22
1120 5  34
1122 5  47
1124 2  19
1126 4  23
1128 4  39
1130 2  26
1132 3  22
1134 4  49
1136 3  23
1138 1  20
1140 4  58
1142 2  18
1144 0  24
1146 3  38
1148 2  26
1150 0  27
1152 2  36
1154 2  19
1156 2  22
1158 3  42
1160 2  29
1162 1  25
1164 2  43
1166 2  24
1168 2  22
1170 3  58
1172 1  18
1174 3  22
1176 3  49
1178 1  19
1180 2  26
1182 4  40
1184 3  20
1186 2  20
1188 2  43
1190 2  33
1192 3  23
1194 4  45
1196 1  24
1198 3  24
1200 4  54
1202 1  19
1204 4  28
1206 3  43
1208 1  20
1210 3  32
1212 3  42
1214 1  22
1216 3  21
1218 3  49
1220 3  27
1222 2  25
1224 4  45
1226 2  22
1228 2  22
1230 4  55
1232 3  28
1234 4  25
1236 5  42
1238 1  18
1240 4  34
1242 5  44
1244 3  23
1246 3  26
1248 4  45
1250 2  28
1252 3  23
1254 4  51
1256 2  20
1258 1  21
1260 4  68
1262 3  22
1264 1  26
1266 3  42
1268 2  21
1270 1  27
1272 2  40
1274 0  26
1276 1  25
1278 2  42
1280 2  27
1282 3  26
1284 2  46
1286 2  22
1288 3  29
1290 4  60
1292 2  23
1294 4  26
1296 5  49
1298 2  20
1300 4  33
1302 5  53
1304 3  24
1306 5  24
1308 7  46
1310 5  30
1312 4  23
1314 6  46
1316 2  27
1318 3  26
1320 6  66
1322 3  21
1324 4  26
1326 5  53
1328 2  22
1330 4  41
1332 5  47
1334 3  25
1336 2  25
1338 4  45
1340 2  27
1342 1  27
1344 2  54
1346 1  25
1348 1  22
1350 3  60
1352 1  22
1354 0  21
1356 1  41
1358 1  24
1360 0  33
1362 0  44
1364 1  27
1366 1  27
1368 1  48
1370 1  28
1372 2  27
1374 2  47
1376 1  23
1378 3  27
1380 3  61
1382 0  20
1384 4  24
1386 3  59
1388 1  20
1390 3  30
1392 3  44
1394 1  24
1396 2  24
1398 3  45
1400 1  34
1402 2  27
1404 4  48
1406 1  23
1408 0  25
1410 3  58
1412 3  18
1414 1  30
1416 2  47
1418 2  20
1420 1  34
1422 2  41
1424 0  22
1426 2  23
1428 3  57
1430 3  35
1432 3  25
1434 3  50
1436 4  22
1438 3  23
1440 5  60
1442 3  27
1444 3  28
1446 6  45
1448 1  20
1450 4  36
1452 5  49
1454 3  26
1456 5  34
1458 6  48
1460 4  33
1462 4  29
1464 6  47
1466 4  25
1468 2  24
1470 6  73
1472 2  22
1474 2  30
1476 5  51
1478 3  26
1480 1  34
1482 4  52
1484 4  29
1486 2  25
1488 5  52
1490 5  31
1492 3  27
1494 5  50
1496 4  28
1498 3  32
1500 6  67
1502 4  27
1504 4  27
1506 5  51
1508 2  25
1510 4  33
1512 5  59
1514 2  23
1516 4  26
1518 5  56
1520 2  31
1522 3  27
1524 3  48
1526 2  28
1528 3  27
1530 4  69
1532 0  22
1534 3  32
1536 3  47
1538 1  26
1540 2  46
1542 3  46
1544 1  21
1546 2  30
1548 3  51
1550 2  31
1552 2  28
1554 4  62
1556 3  24
1558 1  25
1560 5  72
1562 4  29
1564 2  28
1566 4  51
1568 2  25
1570 3  38
1572 5  57
1574 3  23
1576 3  26
1578 4  47
1580 3  31
1582 4  34
1584 4  58
1586 4  28
1588 3  26
1590 6  71
1592 1  25
1594 2  27
1596 4  64
1598 2  24
1600 3  36
1602 4  53
1604 3  23
1606 2  30
1608 4  47
1610 3  42
1612 4  35
1614 5  53
1616 4  27
1618 3  32
1620 6  65
1622 2  24
1624 5  35
1626 6  55
1628 3  29
1630 5  40
1632 6  60
1634 3  27
1636 3  27
1638 6  67
1640 4  35
1642 3  27
1644 5  52
1646 2  26
1648 2  28
1650 5  76
1652 1  28
1654 1  31
1656 3  55
1658 2  27
1660 2  39
1662 1  54
1664 2  28
1666 2  34
1668 3  53
1670 3  37
1672 2  35
1674 5  56
1676 3  28
1678 1  31
1680 4  83
1682 2  24
1684 1  31
1686 4  56
1688 2  26
1690 1  37
1692 2  57
1694 2  32
1696 2  28
1698 4  52
1700 4  34
1702 2  30
1704 5  55
1706 3  30
1708 2  32
1710 4  78
1712 3  26
1714 2  27
1716 4  68
1718 1  21
1720 2  38
1722 3  64
1724 2  29
1726 4  31
1728 5  53
1730 3  36
1732 2  25
1734 4  55
1736 3  35
1738 4  33
1740 5  76
1742 1  25
1744 3  33
1746 4  55
1748 1  25
1750 4  48
1752 5  52
1754 3  27
1756 2  30
1758 4  55
1760 4  41
1762 3  29
1764 6  69
1766 3  32
1768 0  31
1770 5  73
1772 3  28
1774 1  27
1776 3  53
1778 3  33
1780 1  37
1782 4  59
1784 3  25
1786 1  30
1788 4  52
1790 5  36
1792 2  36
1794 5  66
1796 4  31
1798 1  27
1800 5  75
1802 2  31
1804 2  31
1806 5  72
1808 3  28
1810 1  36
1812 3  53
1814 4  28
1816 2  27
1818 5  53
1820 3  46
1822 1  27
1824 4  58
1826 2  33
1828 3  29
1830 4  76
1832 1  25
1834 3  34
1836 2  62
1838 2  28
1840 2  37
1842 4  54
1844 1  32
1846 1  28
1848 2  70
1850 2  38
1852 3  28
1854 4  54
1856 0  32
1858 1  29
1860 3  76
1862 1  34
1864 3  32
1866 3  53
1868 2  28
1870 2  43
1872 3  58
1874 4  30
1876 3  36
1878 5  61
1880 4  38
1882 3  33
1884 7  61
1886 3  30
1888 3  28
1890 7  91
1892 4  35
1894 3  32
1896 5  63
1898 3  33
1900 3  36
1902 5  55
1904 4  36
1906 3  30
1908 6  58
1910 4  36
1912 4  30
1914 5  66
1916 3  28
1918 5  35
1920 6  81
1922 1  30
1924 3  34
1926 3  58
1928 0  30
1930 4  39
1932 3  68
1934 1  28
1936 4  33
1938 4  65
1940 1  41
1942 3  30
1944 5  58
1946 1  34
1948 2  31
1950 4  83
1952 2  29
1954 4  35
1956 4  53
1958 1  27
1960 2  48
1962 4  56
1964 2  26
1966 1  29
1968 3  62
1970 2  38
1972 2  32
1974 3  71
1976 2  33
1978 2  32
1980 3  82
1982 2  30
1984 2  32
1986 3  58
1988 1  30
1990 4  42
1992 5  59
1994 2  27
1996 3  28
1998 3  56
2000 3  37
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-19 10:09 | 显示全部楼层
1000~2000之间含有0个小根拆的偶数有13个分别如下:
1144 0  24
1150 0  27
1274 0  26
1354 0  21
1360 0  33
1362 0  44
1382 0  20
1408 0  25
1424 0  22
1532 0  22
1768 0  31
1856 0  32
1928 0  30
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-20 06:24 | 显示全部楼层
本帖最后由 ysr 于 2023-2-20 00:05 编辑

偶数480000和500000之间的偶数的方根内最少拆分个数为:4, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)
480308 6  2129
480878 4  2257
480902 4  2207
480908 5  2219
483482 6  2243
484892 6  2199
484922 6  2271
484972 6  2235
485158 4  2259
485246 6  2232
485326 6  2206
485458 6  2203
485536 5  2202
485566 6  2236
485578 6  2236
485752 5  2230
485948 5  2224
485974 6  2181
486118 6  2244
486154 6  2216
486902 6  2443
487346 6  2242
488186 6  2436
490712 6  2160
491486 5  2233
492302 6  2195
492368 5  2184
492488 5  2195
492572 5  2252
492578 5  2201
492656 5  2256
492848 6  2245
493538 6  2214
496466 6  2353
497402 6  2214



偶数500000和510000之间的偶数的方根内最少拆分个数为:4, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)
501938 6  2273
502022 6  2334
502286 6  2256
502358 6  2233
502526 6  2248
503222 4  2256
503312 6  2292
503522 5  2240
505112 6  2258
506222 6  2288
506516 5  2284
509638 6  2454
509668 6  2309
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-20 09:38 | 显示全部楼层
理论是160万以上小根拆的最低值才能达到4个,实际值是48万以上小根拆个数的最低值就是4个了。

实际值增长速度比理论值快,理论值就是个下限,是确定的,无可置疑的数理逻辑,是科学规律,可以用于证明的。还用发啥数据呢?

发了数据官科又说是:凡是初等数学弄出来的都是有限个数据弄出来的,结论是不成立的。所以,经过严格证明的公式是正确的以致无穷都成立的,无需再验证,发不发数据没有关系。除非你在数据中找到了反例,严格证明的逻辑,你能找到反例吗?

这个严格证明的逻辑就是:偶数方根内的哥德巴赫猜想解的个数是个不减函数在偶数大于等于11万(实际值是大于等于63280)的时候,偶数方根内的哥德巴赫猜想解的个数的最低值是大于等1的,仅仅含有大根拆而不含有小根拆的偶数仅仅只有73个。

根据这一条,哥德巴赫猜想是远远成立的。这就是无可争议的事实。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-20 22:56 | 显示全部楼层
偶数510000和520000之间的偶数的方根内最少拆分个数为:6, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)
510922 6  2505
510982 6  2358
511178 6  2275
512296 6  2295
512326 6  2295
512368 6  2359
512416 6  2357
512494 6  2277
512506 6  2434
512536 6  2313
514222 6  2376
515572 6  2385
515588 6  2276
515618 6  2410
515678 6  2577
515828 6  2434
516092 6  2307
516104 6  2303
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-20 22:59 | 显示全部楼层
偶数520000和540000之间的偶数的方根内最少拆分个数为:4, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)
521102 6  2315
523106 6  2457
523234 5  2358
523372 6  2325
523384 5  2361
524794 6  2378
527468 6  2382
527498 6  2407
528604 6  2329
528608 4  2331
529328 6  2370
531548 6  2396
531572 6  2375
531758 4  2401
531932 6  2413
533504 6  2369
533618 6  2418
533942 6  2364
535478 6  2433
535688 5  2470
535718 6  2367
535748 6  2407
536144 6  2861
537556 6  2520
537898 6  2438
537976 6  2404
538024 6  2459
539282 6  2417
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-2-20 23:00 | 显示全部楼层
偶数540000和560000之间的偶数的方根内最少拆分个数为:6, 分别列表如下:
(偶数) (偶数方根内的素数和对个数,仅输出个数低于6的) (总素数和对个数)
540058 6  2414
540068 6  2408
544688 6  2436
551498 6  2518
552868 6  2477
552952 6  2538
556142 6  2461
557696 6  2477
557786 6  2618
557846 6  2534
558026 6  3093
558368 6  2483
559994 6  2465
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2024-3-29 17:07 , Processed in 0.091797 second(s), 13 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表