研究哥猜解中的最小素数的程序

ysr

例如x=log(67108864)=7.826代入楼上第二个公式，得到y=462.
其实67108864的素数对解中大于462的是491，而491是素数，67108864-491=67108373是素数。

所以，该公式是下限是对的，在有限的数据中是成立的。462与491的差距不太大，就算是有效的。

ysr

拆分差素数对：

256的方根为16,方根内有2个总数有7个,方根内的:
256=263- 7
269- 13
512的方根为22.6274169979695,方根内有1个总数有12个,方根内的:
512=523- 11
1024的方根为32,方根内有1个总数有20个,方根内的:
1024=1031- 7
2048的方根为45.254833995939,方根内有2个总数有31个,方根内的:
2048=2053- 5
2089- 41
4096的方根为64,方根内有5个总数有47个,方根内的:
4096=4099- 3
4127- 31
4133- 37
4139- 43
4157- 61
8192的方根为90.5096679918781,方根内有4个总数有82个,方根内的:
8192=8209- 17
8221- 29
8233- 41
8263- 71
16384的方根为128,方根内有6个总数有142个,方根内的:
16384=16421- 37
16427- 43
16451- 67
16481- 97
16487- 103
16493- 109
32768的方根为181.019335983756,方根内有7个总数有238个,方根内的:
32768=32771- 3
32779- 11
32797- 29
32839- 71
32869- 101
32917- 149
32941- 173
65536的方根为256,方根内有10个总数有397个,方根内的:
65536=65539- 3
65543- 7
65579- 43
65609- 73
65633- 97
65687- 151
65699- 163
65717- 181
65729- 193
65777- 241

ysr

Private Sub Command1_Click()
'求拆分差素数对的程序
Dim a, b
a = Val(Text1)

m1 = Val(Text2)
Do While a <= m1
m = Sqr(a)
s = 0
Text3 = ""
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 b, "-", a1
Text3 = Text3 & CStr(b) & "- " & CStr(a1) & 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 B1, "-", a2

Else
s1 = s1
End If
a2 = a2 + 2

Loop
s11 = s11 & a & "的方根为" & m & "," & "方根内有" & s & "个总数有" & s1 & "个,方根内的:" & vbCrLf & a & "=" & Text3

a = a * 2
Loop
Combo1 = s11

End Sub

ysr

求拆分差素数对中的小素数的模拟函数：
点(1024,7),(4096,43),(65536,151),取对数得：log(1024)=3.0102,log(4096)=3.612,log(65536)=4.816;
得到点(3.0102,7),(3.612,43),(4.816,151).
由待定系数法得到函数：
y=14.7066x^2-37.56853x-13.17218.

代入数值试试。

ysr

65536的方根为256,方根内有10个总数有397个,方根内的:
65536=65539- 3
65543- 7
65579- 43
65609- 73
65633- 97
65687- 151
65699- 163
65717- 181
65729- 193
65777- 241
131072的方根为362.038671967512,方根内有8个总数有717个,方根内的:
131072=131101- 29
131113- 41
131143- 71
131203- 131
131221- 149
131251- 179
131311- 239
131431- 359
262144的方根为512,方根内有12个总数有1317个,方根内的:
262144=262147- 3
262151- 7
262187- 43
262217- 73
262253- 109
262271- 127
262337- 193
262511- 367
262541- 397
262553- 409
262583- 439
262643- 499
524288的方根为724.077343935025,方根内有11个总数有2225个,方根内的:
524288=524341- 53
524347- 59
524389- 101
524521- 233
524599- 311
524707- 419
524731- 443
524857- 569
524941- 653
524947- 659
524971- 683

ysr

将x=log(524288)=5.719代入前面的函数，得到y=252，实际比252大的拆分素数是311，而311+524288=524599是素数，所以，公式有效，是下限公式。

ysr

求一下7.6544447652883265575941117764003*10^199（其实是个200位的偶数）的常用对数：
log(7.6544447652883265575941117764003*10^199)=199+0.88391369351672076592034261527019=199.88391369351672076592034261527019，大致如此。

ysr

公式一：y=21.191819x^2-133.421927x+208.92.
公式二：y=14.7066x^2-37.56853x-13.17218.
将x=199.88391代入公式一得到y=820229.
将x=199.88391代入公式二得到y=580058.

试试由这两个数是否能求出对应的两个200位的素数。


111111183569内有0组蔡氏素数:
用时23781.481秒