数学中国

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

求数列的通项公式

[复制链接]
 楼主| 发表于 2020-9-5 23:03 | 显示全部楼层
对应项差为10(首项是相邻素数对):
/393919/200560884049/401121374179
/393929/200560884059/401121374189
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-5 23:04 | 显示全部楼层
对应项差为24(首项是相邻素数对):
/389663/200560879793/401121369923
/389687/200560879817/401121369947
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-5 23:09 | 显示全部楼层
/382777/200560872907/401121363037/601681853167/802242343297/1002802833427
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-6 02:45 | 显示全部楼层
/421633/200560911763/401121401893
/421639/200560911769/401121401899/601681892029
/421643/200560911773/401121401903
/421657/200560911787/401121401917
对应项依次差6,4,12。
首项为相邻素数。


451529与491529之间的素数开头差为200560490130最多有7个连续素数:
/481769/200560971899/401121462029/601681952159/802242442289/1002802932419/1203363422549
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-6 02:49 | 显示全部楼层
本帖最后由 ysr 于 2020-9-14 07:22 编辑

代码如下:

Private Sub Command1_Click()
Dim a, b
a = Trim(Text1)
a1 = a
q = Trim(Text2)
m = Sqr(q)
If Right(a, 1) Mod 2 = 0 Then
a = MPC1(Trim(a), 1)
Else
a = a
End If

Do While InStr(fenjieyinzi0(Trim(a)), "*") <> 0
a = MPC1(Trim(a), 2)
Loop

Do While MBJC(Trim(a), Trim(q)) < 0
b = a
d = fenjieyinzi0(Trim(b))
s = 0
s3 = ""
Do While s < 40 And InStr(d, "*") = 0
s4 = s + 1
If s4 Mod 20 = 0 Then
s3 = s3 & "/" & b & vbCrLf
Else
s3 = s3 & "/" & b
End If
s = s + 1
s2 = s * (s + 1)
b = MPC1(Trim(b), "200560490130")
d = fenjieyinzi0(Val(b))
Loop
If s > 2 Then
Text3 = Text3 & s3 & vbCrLf
ElseIf InStr(fenjieyinzi0(Trim(a)), "*") = 0 Then
Text3 = Text3 & a & vbCrLf
End If
If s > 1 Then
s5 = s5 & "/" & s
Else
s5 = s5
End If
Print s5
a = MPC1(Trim(a), 2)
s2 = 0
Loop
s6 = Mid(s5, 2)
     s7 = max(Trim(s6))
Combo1 = a1 & "与" & q & "之间的素数开头差为200560490130最多有" & s7 & "个连续素数:" & vbCrLf & Text3

     
Text4 = s5
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function max(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long

For b = 0 To UBound(a)
If temp < a(b) Then temp = a(b)
Next
max = temp
End Function
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-9 21:49 | 显示全部楼层
540559与602529之间的素数开头差为200560490130最多有8个连续素数:
/588893/200561079023/401121569153/601682059283/802242549413/1002803039543/1203363529673/1403924019803
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-10 06:13 | 显示全部楼层
652529与702529之间的素数开头差为200560490130最多有7个连续素数:
/656263/200561146393/401121636523/601682126653/802242616783/1002803106913/1203363597043

702529与752529之间的素数开头差为200560490130最多有8个连续素数:
/731041/200561221171/401121711301/601682201431/802242691561/1002803181691/1203363671821/1403924161951

长度5个,6个的很多,7个,8个就稀少些,随着长度增加越来越稀少,但并不是唯一的,仍然是无穷多的。
但数值巨大,逐个找出来别说几百万就是几百也是太慢太长了甚至不可能了,除非找到规律直接计算出来!
找到这么多7个,8个的,就是试图找到首项的规律,素数不能仅看做一类,要分成多种类型。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-10 07:45 | 显示全部楼层
个位数字特征:1,3,9的容易产生连续7个以上,尤其是9.
而个位数是7的没有发现,可能是有,计算数据少,没有概率统计意义。所以,个位数字的特征不明显,但可以算是猜测,有待进一步研究。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-11 22:49 | 显示全部楼层
947529与967529之间的素数开头差为200560490130最多有6个连续素数:
/947539/200561437669/401121927799
947579
947659
947719
947729
947819
/947959/200561438089/401121928219
948019
948029
948049
948089
948139
948149
948169
948349
948439
948449
948469
948659
948749
948799
948839
948929
948989
949019
949129
949159
949409
949439
949589
949609
949649
949699
949759
949789
949849
949889
949939
949979
950009
950029
950039
950099
950149
950179
950239
950269
950329
950459
950479
950519
950569
950639
950689
/950699/200561440829/401121930959/601682421089/802242911219/1002803401349
/950809/200561440939/401121931069/601682421199/802242911329
950819
950839
950869
950879
950959
951019
951029
951059
951079
951089
951109
951259
951299
951389
951449
951469
951479
951589
951649
951659
951689
951749
951829
951859
951959
952009
952129
952169
952199
952219
952229
952279
952349
952379
/952429/200561442559/401121932689
952439
952559
952619
952649
952669
952709
952739
952789
952829
952859
952979
953039
953149
953179
953399
953539
953639
953699
/953789/200561443919/401121934049
/953929/200561444059/401121934189
953969
954139
954209
954229
/954259/200561444389/401121934519
954269
954319
954379
954409
954469
954509
954539
954599
954619
954649
954719
954829
954869
954929
954979
955039
955139
955309
955319
955379
955439
955469
955649
955709
955729
955769
955819
955879
955919
/955939/200561446069/401121936199/601682426329/802242916459
956119
956269
956399
956429
956569
956689
956699
956749
956759
956789
956849
956909
956929
956999
957059
957109
957119
957139
957169
957289
957349
957409
957419
957499
957529
957599
957659
957709
957769
957889
957949
957959
958039
958049
/958159/200561448289/401121938419
958259
958289
/958319/200561448449/401121938579
958339
958369
958439
958459
958499
958519
958549
958609
958669
958679
958729
958739
958819
958829
958849
959009
959099
959149
959159
959209
959219
959269
/959279/200561449409/401121939539
959339
959369
959389
959449
959479
959489
959579
959659
/959689/200561449819/401121939949
959719
959759
959779
959809
959869
959879
959969
960019
960049
960059
960119
960139
960199
960229
960259
960299
960329
960389
960419
960499
960569
960649
960709
960809
960829
/960889/200561451019/401121941149
960989
961069
961099
961109
961139
/961159/200561451289/401121941419
961189
/961319/200561451449/401121941579/601682431709
961339
961399
961459
961529
961549
961619
961679
961729
961739
961769
961789
961879
962009
962099
962119
962309
962459
962509
962569
962609
962669
962779
962789
962839
962869
962909
962959
963019
963239
963299
/963349/200561453479/401121943609
963379
963419
963499
963559
963629
963659
/963689/200561453819/401121943949
963709
/963719/200561453849/401121943979
963779
963799
963839
963899
963979
964009
964039
964049
964199
964219
964259
964289
964309
964339
964499
964519
964559
964589
964609
964679
964829
964879
964889
964939
964969
965059
965089
965179
965189
965249
/965329/200561455459/401121945589
965369
965399
965429
965519
965639
/965659/200561455789/401121945919/601682436049/802242926179
965749
965759
965779
965969
965989
966029
966109
966139
966149
966209
966319
966379
966389
966409
966419
/966439/200561456569/401121946699
966499
966509
966619
966659
966869
966919
967019
967049
967129
967139
/967229/200561457359/401121947489
967259
967289
/967319/200561457449/401121947579
967349
967429
967459
967529
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-9-13 19:53 | 显示全部楼层
763529与773529之间的素数开头差为200560490130最多有6个连续素数:
/771899/200561262029/401121752159/601682242289/802242732419/1002803222549
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 16:23 , Processed in 0.070313 second(s), 14 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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