广大哥迷朋友

lusishun

ysr 发表于 2024-11-20 12:04
误差不足1是不对的，只能是在有限数内是这样的，随着偶数增大，从某个偶数开始(如113504)就出现大于1的了 ...

误差不足1，是指，对于一个具体的p,在连续的n个自然数之中，p的倍数个数与p的倍数含量n/p的绝对误差，不足1

ysr

lusishun 发表于 2024-11-18 04:38
用加强倍数含量两筛法，确定和等于200的素数对一定存在。
100（1-4/7）（1-26/36）（1-2/3）（1-2/5）（ ...

就是连乘积从第三项开始就是1-2/p了吧，有空我试试看是不是都是低于实际的，有个别反例也不怕，大不了修改一下误差而已

ysr

加强筛连乘积公式结果： 偶数113504  其方根内最大素数331 方根内的素数个数m=67 (方根为)336.903547027929  有66个区间，其中每个区间哥猜解素数对个数的平均值6.83982859304078  总对数为451.428687140692方根内的解的个数为2.04191805498665（这是用我的法算的p的值不限于偶数的方根内），实际113504的哥猜解是620.

ysr

老鲁的两筛法连乘积公式结果： 偶数113504  其方根内最大素数331 方根内的素数个数m=67 (方根为)336.903547027929  有66个区间，其中每个区间哥猜解素数对个数的平均值11.4465551325408  总对数为755.472638747692方根内的解的个数为2.23638644117586

这里的755=113504*老鲁的连乘积

ysr

老鲁的两筛法连乘积公式结果： 偶数113504  其方根内最大素数331 方根内的素数个数m=67 (方根为)336.903547027929  有66个区间，其中每个区间哥猜解素数对个数的平均值5.7232775662704  总对数为377.736319373846方根内的解的个数为2.23638644117586

这里的377=113504/2*老鲁的连乘积。这样算是低于实际的

ysr

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

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

实际解是1792088879.

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

lusishun

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

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

lusishun

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

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

lusishun

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

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