数论问题巅峰对决

蔡家雄 · 发表于 2020-8-25 11:28

填空题

1~1万的孪中数( p+15 )有（       ）个，

1万~2万的孪中数( p+15 )有（       ）个，

2万~3万的孪中数( p+15 )有（       ）个，

3万~4万的孪中数( p+15 )有（       ）个，

4万~5万的孪中数( p+15 )有（       ）个，

5万~6万的孪中数( p+15 )有（       ）个，

6万~7万的孪中数( p+15 )有（       ）个，

7万~8万的孪中数( p+15 )有（       ）个，

8万~9万的孪中数( p+15 )有（       ）个，

9万~10万的孪中数( p+15 )有（       ）个，

ysr · 发表于 2020-8-25 11:45

谢谢蔡兄鼓励支持，李明波猜想其实是我们两个人共同破解的，利用了蔡兄的定理。

ysr · 发表于 2020-8-25 12:04

1与1000之间有99对p,p+30素数对:
/7/37
/11/41
/13/43
/17/47
/23/53
/29/59
/31/61
/37/67
/41/71
/43/73
/53/83
/59/89
/67/97
/71/101
/73/103
/79/109
/83/113
/97/127
/101/131
/107/137
/109/139
/127/157
/137/167
/149/179
/151/181
/163/193
/167/197
/181/211
/193/223
/197/227
/199/229
/211/241
/227/257
/233/263
/239/269
/241/271
/251/281
/263/293
/277/307
/281/311
/283/313
/307/337
/317/347
/337/367
/349/379
/353/383
/359/389
/367/397
/379/409
/389/419
/401/431
/409/439
/419/449
/431/461
/433/463
/449/479
/457/487
/461/491
/479/509
/491/521
/541/571
/547/577
/557/587
/563/593
/569/599
/571/601
/577/607
/587/617
/601/631
/613/643
/617/647
/631/661
/643/673
/647/677
/653/683
/661/691
/709/739
/727/757
/739/769
/743/773
/757/787
/797/827
/809/839
/823/853
/827/857
/829/859
/853/883
/857/887
/877/907
/881/911
/907/937
/911/941
/937/967
/941/971
/947/977
/953/983
/967/997
/983/1013
/991/1021

实验一下程序，等会儿完成蔡兄的填空。

ysr · 发表于 2020-8-25 12:08

代码如下：（只发主程序）
Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
m = Sqr(q)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While a <= m
b = a + 30
c = fenjieyinzi0(Val(a))
d = fenjieyinzi0(Val(b))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 Then
s = s + 1
Print a, b, a + 15
Text3 = Text3 & "/" & a & "/" & b & vbCrLf
Else
s = s
End If
a = a + 2
Loop
a2 = a
s1 = s
Do While a2 <= q
B1 = a2 + 30
c1 = fenjieyinzi0(Val(a2))
D1 = fenjieyinzi0(Val(B1))

If InStr(c1, "*") = 0 And InStr(D1, "*") = 0 Then
s1 = s1 + 1
Print a2, B1, a2 + 15
Text3 = Text3 & "/" & a2 & "/" & B1 & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 2

Loop
Combo1 = a1 & "与" & q & "之间有" & s1 & "对p,p+30素数对:" & vbCrLf & Text3
s103 = DeleteSpace1(Text3)
s103 = Mid(s103, 1)
Dim i As Integer
Dim ak(), s105, cr(), f
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
j1 = UBound(s105)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
Print ak(1)
   n = 0
      For k = 1 To j1
         For i = 1 To j1
         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k)) + Val(ak(i))
         f(m) = ""
   Next
Next
   n = 0
   m = f.Keys
   For i = 0 To f.Count - 1
      ReDim Preserve cr(1 To i + 1)
      cr(i + 1) = m(i)
   Next
   For i = 1 To UBound(cr) - 1
      For j = i + 1 To UBound(cr)
         If cr(i) > cr(j) Then
            temp = cr(j)
            cr(j) = cr(i)
            cr(i) = temp  'c数组是排序好的
         End If
      Next j

   ' If i Mod 20 = 0 Then
   ' s104 = s104 & temp & "/" & vbCrLf
   ' Else
   ' s104 = s104 & temp & "/"
   ' End If
Next i

   For i = 1 To UBound(cr)
      If i Mod 20 = 0 Then
      s104 = s104 & cr(i) & "/" & vbCrLf
      Else
      s104 = s104 & cr(i) & "/"
      End If
   Next
      Print temp
      MsgBox "ok"
   MsgBox s104  '显示数组
Text4 = s104
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub

ysr · 发表于 2020-8-25 12:43

填空题

1~1万的孪中数( p+15 )有（ 536       ）个，

1万~2万的孪中数( p+15 )有（ 383    ）个，

2万~3万的孪中数( p+15 )有（ 340    ）个，

3万~4万的孪中数( p+15 )有（ 329    ）个，

4万~5万的孪中数( p+15 )有（ 301    ）个，

5万~6万的孪中数( p+15 )有（ 306    ）个，

6万~7万的孪中数( p+15 )有（ 291    ）个，

7万~8万的孪中数( p+15 )有（ 295    ）个，

8万~9万的孪中数( p+15 )有（    274    ）个，

9万~10万的孪中数( p+15 )有（ 274    ）个，

ysr · 发表于 2020-8-25 12:44

90000与100000之间有274对p,p+30素数对:
/90001/90031
/90023/90053
/90059/90089
/90173/90203
/90187/90217
/90197/90227
/90217/90247
/90371/90401
/90373/90403
/90407/90437
/90439/90469
/90469/90499
/90481/90511
/90499/90529
/90617/90647
/90647/90677
/90679/90709
/90793/90823
/90803/90833
/90833/90863
/90887/90917
/90901/90931
/90917/90947
/90947/90977
/90989/91019
/91097/91127
/91099/91129
/91121/91151
/91129/91159
/91153/91183
/91163/91193
/91199/91229
/91253/91283
/91367/91397
/91381/91411
/91393/91423
/91423/91453
/91433/91463
/91463/91493
/91499/91529
/91541/91571
/91591/91621
/91673/91703
/91703/91733
/91771/91801
/91781/91811
/91807/91837
/91811/91841
/91837/91867
/91909/91939
/91921/91951
/91939/91969
/91967/91997
/92003/92033
/92077/92107
/92143/92173
/92173/92203
/92189/92219
/92203/92233
/92221/92251
/92317/92347
/92333/92363
/92347/92377
/92353/92383
/92357/92387
/92369/92399
/92383/92413
/92401/92431
/92431/92461
/92459/92489
/92551/92581
/92593/92623
/92627/92657
/92639/92669
/92641/92671
/92669/92699
/92693/92723
/92707/92737
/92723/92753
/92737/92767
/92761/92791
/92779/92809
/92791/92821
/92801/92831
/92831/92861
/92863/92893
/92921/92951
/92927/92957
/92957/92987
/93047/93077
/93053/93083
/93059/93089
/93083/93113
/93103/93133
/93139/93169
/93169/93199
/93199/93229
/93251/93281
/93253/93283
/93257/93287
/93307/93337
/93377/93407
/93463/93493
/93493/93523
/93523/93553
/93529/93559
/93607/93637
/93871/93901
/93893/93923
/93911/93941
/93937/93967
/93941/93971
/93949/93979
/93967/93997
/93979/94009
/94033/94063
/94049/94079
/94079/94109
/94121/94151
/94261/94291
/94291/94321
/94321/94351
/94349/94379
/94397/94427
/94433/94463
/94447/94477
/94483/94513
/94513/94543
/94529/94559
/94531/94561
/94543/94573
/94573/94603
/94583/94613
/94621/94651
/94693/94723
/94747/94777
/94781/94811
/94789/94819
/94793/94823
/94811/94841
/94819/94849
/94873/94903
/94903/94933
/95063/95093
/95071/95101
/95101/95131
/95189/95219
/95203/95233
/95231/95261
/95257/95287
/95287/95317
/95339/95369
/95383/95413
/95413/95443
/95441/95471
/95531/95561
/95539/95569
/95603/95633
/95621/95651
/95701/95731
/95707/95737
/95717/95747
/95773/95803
/95783/95813
/95789/95819
/95881/95911
/95917/95947
/95929/95959
/95957/95987
/95959/95989
/95971/96001
/95987/96017
/96013/96043
/96137/96167
/96149/96179
/96181/96211
/96233/96263
/96259/96289
/96263/96293
/96293/96323
/96323/96353
/96401/96431
/96431/96461
/96457/96487
/96487/96517
/96497/96527
/96527/96557
/96557/96587
/96667/96697
/96739/96769
/96749/96779
/96757/96787
/96769/96799
/96797/96827
/96821/96851
/96827/96857
/96959/96989
/96973/97003
/97073/97103
/97127/97157
/97157/97187
/97367/97397
/97423/97453
/97429/97459
/97523/97553
/97547/97577
/97549/97579
/97553/97583
/97577/97607
/97579/97609
/97583/97613
/97813/97843
/97829/97859
/97841/97871
/97849/97879
/97931/97961
/97943/97973
/97987/98017
/98011/98041
/98017/98047
/98221/98251
/98227/98257
/98269/98299
/98297/98327
/98317/98347
/98347/98377
/98377/98407
/98389/98419
/98429/98459
/98443/98473
/98533/98563
/98543/98573
/98597/98627
/98639/98669
/98779/98809
/98807/98837
/98837/98867
/98867/98897
/98869/98899
/98897/98927
/98899/98929
/98909/98939
/98963/98993
/98993/99023
/99023/99053
/99053/99083
/99079/99109
/99089/99119
/99103/99133
/99109/99139
/99119/99149
/99259/99289
/99317/99347
/99347/99377
/99367/99397
/99371/99401
/99401/99431
/99409/99439
/99439/99469
/99497/99527
/99529/99559
/99551/99581
/99577/99607
/99581/99611
/99679/99709
/99689/99719
/99787/99817
/99793/99823
/99809/99839
/99829/99859
/99871/99901
/99877/99907
/99961/99991
/99989/100019

蔡家雄 · 发表于 2020-8-25 14:27

谢谢！！

蔡家雄 · 发表于 2020-8-25 14:50

1万以内的孪中数( p+15 )有 536 个，

2万以内的孪中数( p+15 )有 919 个，

3万以内的孪中数( p+15 )有 1259 个，

4万以内的孪中数( p+15 )有 1588 个，

5万以内的孪中数( p+15 )有 1889 个，

6万以内的孪中数( p+15 )有 2195 个，

7万以内的孪中数( p+15 )有 2486 个，

8万以内的孪中数( p+15 )有 2781 个，

9万以内的孪中数( p+15 )有 3055 个，

10万以内的孪中数(p+15)有 3329 个，

ysr · 发表于 2020-8-25 15:19

哈哈，好的，谢谢沟通和支持！这个是干嘛的？好好研究吧！

		自动登录	找回密码
密码			注册