广大哥迷朋友

lusishun

若是从内心认为我的证明有逻辑错误，就实实在在的指出来，我热烈欢迎

lusishun

lusishun 发表于 2024-11-22 21:29
在连续1000个自然数中，求素数p的倍数个数，首先想到的是1000/p,然后再考虑取整。
这也最为原始的方法。我 ...

但是在这1000个数字中，p的倍数个数，应该是去尾取整，还是收尾取整呢？
这也是每一个网友都不可确定的。
是吧！

lusishun

在连续1000个自然数中，求素数p的倍数个数，首先想到的是1000/p,然后再考虑取整。
这也最为原始的方法。我估计大家不会有任何质疑。

lusishun

专家个人，不敢认可 ，有待历史的沉淀。

lusishun

只证明存在一对素数之和，即可。
不需要考虑精确问题。

lusishun

lusishun 发表于 2024-11-21 06:59
我不明白，你研究的是什么？

奥，不必检验，
用加强倍数含量两筛法得到的数值比实际的哥猜对数，少很多。给的偶数约大，得到的数值比实际的哥猜数对，差距约大。明摆着的事

lusishun

ysr 发表于 2024-11-21 06:03
老鲁的两筛法连乘积公式结果： 偶数2023022488888  其方根内最大素数1422293 方根内的素数个数m=108650 ( ...

我不明白，你研究的是什么？

lusishun

lusishun 发表于 2024-11-20 13:17
误差不足1，是指，对于一个具体的p,在连续的n个自然数之中，p的倍数个数与p的倍数含量n/p的绝对误差，不 ...

感谢ysr先生的关注，
但你仍然没有理解原意。在连续n个自然数中，p的倍数个数是n/p收尾取整，或者是去尾取整，所以与p的倍数含量n/p的n绝对误差，不到1。

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)
m = Sqr(a)
m1 = Int(m)
a3 = a / 2
a2 = m1
a1 = 3
s = 1
b = 1 * 3 / 7 * 23 / 36
Do While a2 <= m And InStr(fenjieyinzi(Val(a2)), "*") <> 0
a2 = a2 - 1
Loop
Do While a1 <= a2
c = fenjieyinzi(Val(a1))
If InStr(Trim(c), "*") = 0 Then
s = s + 1
b = b * Val(1 - 2 / a1)
Else
s = s
End If
a1 = a1 + 2
Loop
a4 = a1
b2 = m1 * b
If a <= 2000 Then
b1 = a3 * b - 1
ElseIf a <= 10000 Then
b1 = a3 * b - s / 5
Else
Do While a4 <= m1
c = fenjieyinzi(Val(a4))
If InStr(Trim(c), "*") = 0 Then
b = b * Val(1 - 2 / a4)
Else
s = s
End If
a4 = a4 + 2
Loop
b1 = a3 * b
End If
If a <= 8 Then
Text2 = "老鲁的两筛法连乘积公式结果： 偶数" & a & "  其方根内最大素数" & a2 & " 方根内的素数个数m=" _
& s & "  有" & s & "个区间，其中每个区间哥猜解素数对个数的平均值" & b1 / s & "  总对数为" & b1 & "方根内的解的个数为" & b2
Else
Text2 = " 老鲁的两筛法连乘积公式结果： 偶数" & a & "  其方根内最大素数" & a2 & " 方根内的素数个数m=" _
& s & " (方根为)" & m & "  有" & s - 1 & "个区间，其中每个区间哥猜解素数对个数的平均值" & b1 / (s - 1) & "  总对数为" & b1 & "方根内的解的个数为" & b2
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub

ysr

老鲁的两筛法连乘积公式结果： 偶数2023022488888  其方根内最大素数1422293 方根内的素数个数m=108650 (方根为)1422329.95078076  有108649个区间，其中每个区间哥猜解素数对个数的平均值10570.6995769023  总对数为1148495938.33085方根内的解的个数为1614.94900668959

这里的1148495938=2023022488888/2*老鲁的连乘积。是低于实际的。（按这种算法目前没有找到反例）

实际解是1792088879.