判定梅森质数的卢卡斯序列

ysr

1000000与1020000之间的素数打头有1组6生素数对: (用时3.191406秒）
/1019281/1019351/3057883/3057913/3057983p=1019251
改了一下程序
可见数据再大就稀了。
1009339=43*23473，咋回事？再改进一下吧

ysr

1020000与1040000之间的素数打头有2组6生素数对: (用时3.007813秒）
/1022167/1022237/3066541/3066571/3066641p=1022137
/1031461/1031531/3094423/3094453/3094523p=1031431
这回1022137和1031431都是素数

ysr

1040000与1090000之间的素数打头有1组6生素数对: (用时6.996094秒）
/1081687/1081757/3245101/3245131/3245201p=1081657
这回明显是变稀少了。1081657是素数。

ysr

代码如下：

Private Sub Command1_Click() '求由2个孪生素数对组成的4生素数组的程序
Dim A, B
A = Val(Text1)
a1 = A
q = Val(Text2)
ts = Timer
m = Sqr(q)
t = Trim(Text4)
If Right(A, 1) Mod 2 = 0 Then
A = A + 1
Else
A = A
End If
s = 0
a2 = A
Do While a2 <= 40
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 2
Loop
B1 = a2 + 30
b2 = a2 + 100
b3 = 3 * a2 + 130
b4 = 3 * a2 + 160
b5 = 3 * a2 + 230
C1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(b2))
c3 = fenjieyinzi0(Trim(b3))
D1 = fenjieyinzi0(Trim(b4))
c5 = fenjieyinzi0(Trim(b5))
If InStr(C1, "*") = 0 And InStr(D1, "*") = 0 And InStr(C2, "*") = 0 And InStr(c3, "*") = 0 And InStr(c5, "*") = 0 Then
s = s + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & "/" & b5 & "p=" & a2 & vbCrLf
Else
s = s
End If
a2 = a2 + 2

Loop
a2 = a2
s1 = s
Do While a2 <= q
Do While InStr(fenjieyinzi0(Trim(a2)), "*") > 0
a2 = a2 + 2
Loop
B1 = a2 + 30
b2 = a2 + 100
b3 = 3 * a2 + 130
b4 = 3 * a2 + 160
b5 = 3 * a2 + 230
C1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(b2))
c3 = fenjieyinzi0(Trim(b3))
D1 = fenjieyinzi0(Trim(b4))
c5 = fenjieyinzi0(Trim(b5))
If InStr(C1, "*") = 0 And InStr(D1, "*") = 0 And InStr(C2, "*") = 0 And InStr(c3, "*") = 0 And InStr(c5, "*") = 0 Then
s1 = s1 + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & "/" & b5 & "p=" & a2 & vbCrLf
s1 = s1
End If
a2 = a2 + 2

Loop
Combo1 = a1 & "与" & q & "之间的素数打头有" & s1 & "组6生素数对: (用时" & Timer - ts & "秒）" & vbCrLf & Text3

End Sub

ysr

1090000与1110000之间的素数打头有1组6生素数对: (用时3.140625秒）
/1098151/1098221/3294493/3294523/3294593p=1098121

蔡家雄

ysr 发表于 2021-7-27 17:27
p~p+19！确实有解找到一个：
1030000与1040000之间的素数打头有1组8生素数对: (用时959.1289秒）
/103400 ...

同邻距的三生素数
且前一组三生素数之和是后一组三生素数的首项，

最小解：p=11，( p, p+20, p+120 ) 与 ( 3p+140, 3p+160, 3p+260 )

———   p <= 10^6，有几组解 ？？？

ysr

蔡家雄 发表于 2021-7-31 08:14
同邻距的三生素数
且前一组三生素数之和是后一组三生素数的首项，

1与1000000之间的素数打头有50组6生素数对: (用时52.00781秒）
/31/131/173/193/293p=11
/37/137/191/211/311p=17
/367/467/1181/1201/1301p=347
/409/509/1307/1327/1427p=389
/577/677/1811/1831/1931p=557
/3019/3119/9137/9157/9257p=2999
/3229/3329/9767/9787/9887p=3209
/7129/7229/21467/21487/21587p=7109
/8647/8747/26021/26041/26141p=8627
/10159/10259/30557/30577/30677p=10139
/23929/24029/71867/71887/71987p=23909
/25147/25247/75521/75541/75641p=25127
/33211/33311/99713/99733/99833p=33191
/39139/39239/117497/117517/117617p=39119
/51481/51581/154523/154543/154643p=51461
/59467/59567/178481/178501/178601p=59447
/65557/65657/196751/196771/196871p=65537
/67783/67883/203429/203449/203549p=67763
/99277/99377/297911/297931/298031p=99257
/100291/100391/300953/300973/301073p=100271
/117679/117779/353117/353137/353237p=117659
/127549/127649/382727/382747/382847p=127529
/128173/128273/384599/384619/384719p=128153
/133303/133403/399989/400009/400109p=133283
/146701/146801/440183/440203/440303p=146681
/157579/157679/472817/472837/472937p=157559
/160639/160739/481997/482017/482117p=160619
/174673/174773/524099/524119/524219p=174653
/189997/190097/570071/570091/570191p=189977
/190669/190769/572087/572107/572207p=190649
/213019/213119/639137/639157/639257p=212999
/234733/234833/704279/704299/704399p=234713
/328981/329081/987023/987043/987143p=328961
/330787/330887/992441/992461/992561p=330767
/336997/337097/1011071/1011091/1011191p=336977
/400087/400187/1200341/1200361/1200461p=400067
/418189/418289/1254647/1254667/1254767p=418169
/419821/419921/1259543/1259563/1259663p=419801
/432301/432401/1296983/1297003/1297103p=432281
/503947/504047/1511921/1511941/1512041p=503927
/518311/518411/1555013/1555033/1555133p=518291
/542467/542567/1627481/1627501/1627601p=542447
/608359/608459/1825157/1825177/1825277p=608339
/613189/613289/1839647/1839667/1839767p=613169
/660067/660167/1980281/1980301/1980401p=660047
/683377/683477/2050211/2050231/2050331p=683357
/708493/708593/2125559/2125579/2125679p=708473
/786271/786371/2358893/2358913/2359013p=786251
/789343/789443/2368109/2368129/2368229p=789323
/928903/929003/2786789/2786809/2786909p=928883

ysr

222337*3=667011，667141-667011=130，667171-667011=160，667241-667011=230.
p，p+30，p+100.

前面有数据：
/222367/222437/667141/667171/667241p=222337
/233353/233423/700099/700129/700199p=233323
/238237/238307/714751/714781/714851p=238207


/667171/667241/2001553/2001583/2001653p=667141
/691921/691991/2075803/2075833/2075903p=691891
/708061/708131/2124223/2124253/2124323p=708031

蔡家雄

同邻距的三生素数
且前一组三生素数之和是后一组三生素数的首项，

最小解：p=7，  ( p, p+30, p+100 ) 与 ( 3p+130, 3p+160, 3p+230 )

最小解：p=11，( p, p+20, p+120 ) 与 ( 3p+140, 3p+160, 3p+260 )

最小解：p=13，( p, p+10, p+30 ) 与 ( 3p+40, 3p+50, 3p+70 )

最小解：p=17，( p, p+150, p+560 ) 与 ( 3p+710, 3p+860, 3p+1270 )

最小解：p=19，( p, p+40, p+180 ) 与 ( 3p+220, 3p+260, 3p+400 )

最小解：p=23，(  p, p+20, p+90 ) 与 ( 3p+110, 3p+130, 3p+200 )

最小解：p=23，(  p, p+30, p+260 ) 与 ( 3p+290, 3p+320, 3p+550 )

最小解：p=29，( p, p+30, p+80 ) 与 ( 3p+110, 3p+140, 3p+190 )

最小解：p=29，( p, p+30, p+110 ) 与 ( 3p+140, 3p+170, 3p+250 )

最小解：p=29，( p, p+30, p+740 ) 与 ( 3p+770, 3p+800, 3p+1510 )

最小解：p=31，( p, p+30, p+160 ) 与 ( 3p+190, 3p+220, 3p+350 )

最小解：p=31，( p, p+30, p+490 ) 与 ( 3p+520, 3p+550, 3p+1010 )

最小解：p=37，( p, p+30, p+520 ) 与 ( 3p+550, 3p+580, 3p+1070 )

最小解：p=37，( p, p+30, p+1150 ) 与 ( 3p+1180, 3p+1210, 3p+2330 )

最小解：p=41，( p, p+20, p+150 ) 与 ( 3p+170, 3p+190, 3p+320 )

最小解：p=43，( p, p+30, p+250 ) 与 ( 3p+280, 3p+310, 3p+530 )

最小解：p=47，( p, p+80, p+270 ) 与 ( 3p+350, 3p+430, 3p+620 )

最小解：p=53，( p, p+30, p+620 ) 与 ( 3p+650, 3p+680, 3p+1270 )

最小解：p=59，( p, p+30, p+350 ) 与 ( 3p+380, 3p+410, 3p+730 )

最小解：p=61，( p, p+40, p+600 ) 与 ( 3p+640, 3p+680, 3p+1240 )

最小解：p=67，( p, p+30, p+400 ) 与 ( 3p+430, 3p+460, 3p+830 )

最小解：p=71，( p, p+30, p+920 ) 与 ( 3p+950, 3p+980, 3p+1870 )

最小解：p=73，( p, p+30, p+1420 ) 与 ( 3p+1450, 3p+1480, 3p+2870 )

最小解：p=79，( p, p+30, p+280 ) 与 ( 3p+310, 3p+340, 3p+590 )

最小解：p=83，( p, p+30, p+290 ) 与 ( 3p+320, 3p+350, 3p+610 )

最小解：p=89，( p, p+60, p+2450 ) 与 ( 3p+2510, 3p+2570, 3p+4960 )

最小解：p=97，( p, p+60, p+880 ) 与 ( 3p+940, 3p+1000, 3p+1820 )

这种 同邻距的三生素数 有 无限多组 ！！！

蔡家雄

ysr 发表于 2021-7-27 17:27
p~p+19！确实有解找到一个：
1030000与1040000之间的素数打头有1组8生素数对: (用时959.1289秒）
/103400 ...

同邻距的三生素数
且前一组三生素数之和是后一组三生素数的首项，

最小解：p=13，( p, p+10, p+30 ) 与 ( 3p+40, 3p+50, 3p+70 )

———   p <= 10^6，有几组解 ？？？