ysr 发表于 2020-11-8 20:31

Private Function fenjieyinzi(sa As String) As String
Dim x, a, b, k As String
a = Val(sa)

x = 3
If a <= 1 Or a > Int(a) Then
If a = 1 Then
fenjieyinzi = "它既不是质数,也不是合数"

Else
MsgBox "error"
End If

Else

Do While a / 2 = Int(a / 2) And a >= 4

If b = 0 Then
fenjieyinzi = fenjieyinzi & "2"
b = 1
Else
fenjieyinzi = fenjieyinzi & "*2"
End If
a = a / 2
k = a

Loop

Do While a > 1
Do While x <= Sqr(a)
Do While a / x = Int(a / x) And a >= x * x

If b = 0 Then
fenjieyinzi = fenjieyinzi & x
b = 1
Else
fenjieyinzi = fenjieyinzi & "*" & x
End If
a = a / x
Loop

x = x + 2
Loop

k = a
a = 1
Loop

If b = 1 Then
fenjieyinzi = fenjieyinzi & "*" & k
Else
fenjieyinzi = "这是一个质数"
End If





End If

End Function





Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
q = Val(Text3)
Do While a <= q
s = 0
m = Sqr(a)
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

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

Else
s1 = s1
End If

a2 = a2 + 2

Loop

Text2 = Text2 & CStr(a) & " " & CStr(s) & "" & CStr(s1) & vbCrLf
Print a, s, s1

a = a + 210
Loop

Combo1.Text = "(偶数)(方根内的素数构成的素数和对个数)(总素数和对个数)" & vbCrLf & Text2.Text

End Sub

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




ysr 发表于 2020-11-8 20:47

可执行程序上传如下:(请感兴趣的朋友试用!)

ysr 发表于 2020-11-9 07:52

发一下由连乘积公式估算结果的程序:

ysr 发表于 2020-11-9 21:46

本帖最后由 ysr 于 2020-11-9 14:27 编辑

84000的方根为289.827534923789,方根内有19个总数有1662个:84000=13+ 83987
17+ 83983
31+ 83969
61+ 83939
67+ 83933
79+ 83921
89+ 83911
97+ 83903
109+ 83891
127+ 83873
131+ 83869
157+ 83843
167+ 83833
223+ 83777
227+ 83773
239+ 83761
263+ 83737
281+ 83719
283+ 83717
311+ 83689
337+ 83663
347+ 83653
359+ 83641
379+ 83621
383+ 83617
409+ 83591
421+ 83579
439+ 83561
443+ 83557
463+ 83537
503+ 83497
523+ 83477
541+ 83459
557+ 83443
563+ 83437
569+ 83431
577+ 83423
593+ 83407
599+ 83401
601+ 83399
617+ 83383
643+ 83357
659+ 83341
661+ 83339
701+ 83299
727+ 83273
733+ 83267
743+ 83257
757+ 83243
769+ 83231
773+ 83227
797+ 83203
823+ 83177
863+ 83137
883+ 83117
907+ 83093
911+ 83089
929+ 83071
937+ 83063
941+ 83059
953+ 83047
977+ 83023
991+ 83009
997+ 83003
1019+ 82981
1061+ 82939
1087+ 82913
1097+ 82903
1109+ 82891
1117+ 82883
1153+ 82847
1163+ 82837
1187+ 82813
1201+ 82799
1213+ 82787
1237+ 82763
1277+ 82723
1279+ 82721
1301+ 82699
1367+ 82633
1381+ 82619
1399+ 82601
1409+ 82591
1429+ 82571
1433+ 82567
1439+ 82561
1451+ 82549
1471+ 82529
1493+ 82507
1531+ 82469
1543+ 82457
1579+ 82421
1607+ 82393
1613+ 82387
1627+ 82373
1693+ 82307
1699+ 82301
1721+ 82279
1733+ 82267
1759+ 82241
1777+ 82223
1783+ 82217
1811+ 82189
1847+ 82153
1861+ 82139
1871+ 82129
1933+ 82067
1949+ 82051
1979+ 82021
1987+ 82013
1993+ 82007
1997+ 82003
2027+ 81973
2029+ 81971
2063+ 81937
2069+ 81931
2081+ 81919
2099+ 81901
2131+ 81869
2153+ 81847
2161+ 81839
2239+ 81761
2251+ 81749
2273+ 81727
2293+ 81707
2297+ 81703
2311+ 81689
2333+ 81667
2351+ 81649
2371+ 81629
2381+ 81619
2389+ 81611
2437+ 81563
2441+ 81559
2447+ 81553
2467+ 81533
2473+ 81527
2543+ 81457
2579+ 81421
2591+ 81409
2647+ 81353
2657+ 81343
2693+ 81307
2707+ 81293
2719+ 81281
2767+ 81233
2777+ 81223
2797+ 81203
2801+ 81199
2803+ 81197
2819+ 81181
2837+ 81163
2843+ 81157
2903+ 81097
2917+ 81083
2953+ 81047
2957+ 81043
2969+ 81031
2999+ 81001
3011+ 80989
3037+ 80963
3067+ 80933
3083+ 80917
3089+ 80911
3137+ 80863
3167+ 80833
3169+ 80831
3181+ 80819
3191+ 80809
3217+ 80783
3221+ 80779
3251+ 80749
3253+ 80747
3299+ 80701
3313+ 80687
3319+ 80681
3323+ 80677
3329+ 80671
3331+ 80669
3343+ 80657
3371+ 80629
3373+ 80627
3389+ 80611
3433+ 80567
3463+ 80537
3511+ 80489
3527+ 80473
3529+ 80471
3571+ 80429
3593+ 80407
3613+ 80387
3631+ 80369
3637+ 80363
3659+ 80341
3671+ 80329
3691+ 80309
3727+ 80273
3761+ 80239
3767+ 80233
3769+ 80231
3779+ 80221
3793+ 80207
3823+ 80177
3833+ 80167
3847+ 80153
3851+ 80149
3853+ 80147
3889+ 80111
3923+ 80077
3929+ 80071
4001+ 79999
4003+ 79997
4013+ 79987
4021+ 79979
4027+ 79973
4057+ 79943
4093+ 79907
4099+ 79901
4111+ 79889
4127+ 79873
4133+ 79867
4139+ 79861
4153+ 79847
4157+ 79843
4159+ 79841
4177+ 79823
4231+ 79769
4243+ 79757
4373+ 79627
4391+ 79609
4421+ 79579
4441+ 79559
4451+ 79549
4463+ 79537
4507+ 79493
4519+ 79481
4549+ 79451
4567+ 79433
4603+ 79397
4621+ 79379
4643+ 79357
4651+ 79349
4663+ 79337
4691+ 79309
4721+ 79279
4759+ 79241
4799+ 79201
4813+ 79187
4861+ 79139
4889+ 79111
4937+ 79063
4957+ 79043
4969+ 79031
5011+ 78989
5021+ 78979
5023+ 78977
5059+ 78941
5081+ 78919
5099+ 78901
5107+ 78893
5113+ 78887
5147+ 78853
5197+ 78803
5209+ 78791
5279+ 78721
5303+ 78697
5309+ 78691
5347+ 78653
5351+ 78649
5393+ 78607
5407+ 78593
5417+ 78583
5431+ 78569
5483+ 78517
5503+ 78497
5521+ 78479
5563+ 78437
5573+ 78427
5653+ 78347
5659+ 78341
5683+ 78317
5689+ 78311
5693+ 78307
5717+ 78283
5741+ 78259
5807+ 78193
5821+ 78179
5827+ 78173
5843+ 78157
5861+ 78139
5879+ 78121
6067+ 77933
6101+ 77899
6133+ 77867
6151+ 77849
6199+ 77801
6203+ 77797
6217+ 77783
6257+ 77743
6269+ 77731
6277+ 77723
6287+ 77713
6301+ 77699
6311+ 77689
6353+ 77647
6359+ 77641
6379+ 77621
6389+ 77611
6427+ 77573
6449+ 77551
6451+ 77549
6473+ 77527
6491+ 77509
6521+ 77479
6529+ 77471
6553+ 77447
6569+ 77431
6581+ 77419
6653+ 77347
6661+ 77339
6709+ 77291
6733+ 77267
6737+ 77263
6761+ 77239
6763+ 77237
6829+ 77171
6833+ 77167
6863+ 77137
6899+ 77101
6907+ 77093
6959+ 77041
6971+ 77029
6977+ 77023
6983+ 77017
6997+ 77003
7039+ 76961
7057+ 76943
7127+ 76873
7129+ 76871
7219+ 76781
7229+ 76771
7243+ 76757
7247+ 76753
7283+ 76717
7321+ 76679
7333+ 76667
7349+ 76651
7351+ 76649
7369+ 76631
7393+ 76607
7457+ 76543
7459+ 76541
7481+ 76519
7489+ 76511
7507+ 76493
7529+ 76471
7537+ 76463
7559+ 76441
7577+ 76423
7621+ 76379
7717+ 76283
7741+ 76259
7757+ 76243
7793+ 76207
7841+ 76159
7853+ 76147
7877+ 76123
7901+ 76099
7919+ 76081
8009+ 75991
8011+ 75989
8017+ 75983
8059+ 75941
8069+ 75931
8087+ 75913
8117+ 75883
8147+ 75853
8167+ 75833
8179+ 75821
8219+ 75781
8233+ 75767
8269+ 75731
8291+ 75709
8293+ 75707
8297+ 75703
8311+ 75689
8317+ 75683
8389+ 75611
8423+ 75577
8429+ 75571
8443+ 75557
8447+ 75553
8461+ 75539
8467+ 75533
8521+ 75479
8563+ 75437
8597+ 75403
8599+ 75401
8609+ 75391
8623+ 75377
8647+ 75353
8663+ 75337
8677+ 75323
8693+ 75307
8731+ 75269
8747+ 75253
8761+ 75239
8783+ 75217
8807+ 75193
8819+ 75181
8831+ 75169
8839+ 75161
8867+ 75133
8963+ 75037
8971+ 75029
9041+ 74959
9059+ 74941
9067+ 74933
9103+ 74897
9109+ 74891
9127+ 74873
9157+ 74843
9173+ 74827
9203+ 74797
9221+ 74779
9239+ 74761
9241+ 74759
9281+ 74719
9283+ 74717
9293+ 74707
9377+ 74623
9391+ 74609
9403+ 74597
9413+ 74587
9433+ 74567
9439+ 74561
9473+ 74527
9479+ 74521
9491+ 74509
9511+ 74489
9547+ 74453
9551+ 74449
9587+ 74413
9619+ 74381
9623+ 74377
9643+ 74357
9677+ 74323
9689+ 74311
9721+ 74279
9743+ 74257
9769+ 74231
9781+ 74219
9791+ 74209
9803+ 74197
9811+ 74189
9833+ 74167
9839+ 74161
9851+ 74149
9857+ 74143
9901+ 74099
9907+ 74093
9923+ 74077
9929+ 74071
9949+ 74051
9973+ 74027
10039+ 73961
10061+ 73939
10093+ 73907
10103+ 73897
10133+ 73867
10141+ 73859
10151+ 73849
10177+ 73823
10181+ 73819
10243+ 73757
10273+ 73727
10301+ 73699
10321+ 73679
10357+ 73643
10391+ 73609
10429+ 73571
10453+ 73547
10477+ 73523
10529+ 73471
10567+ 73433
10613+ 73387
10631+ 73369
10639+ 73361
10691+ 73309
10709+ 73291
10723+ 73277
10859+ 73141
10867+ 73133
10909+ 73091
10937+ 73063
10939+ 73061
10957+ 73043
10987+ 73013
11003+ 72997
11027+ 72973
11047+ 72953
11069+ 72931
11093+ 72907
11117+ 72883
11131+ 72869
11177+ 72823
11261+ 72739
11273+ 72727
11299+ 72701
11311+ 72689
11321+ 72679
11329+ 72671
11351+ 72649
11353+ 72647
11383+ 72617
11423+ 72577
11467+ 72533
11497+ 72503
11503+ 72497
11519+ 72481
11579+ 72421
11617+ 72383
11621+ 72379
11633+ 72367
11731+ 72269
11777+ 72223
11779+ 72221
11789+ 72211
11827+ 72173
11831+ 72169
11833+ 72167
11839+ 72161
11897+ 72103
11909+ 72091
11923+ 72077
11927+ 72073
11953+ 72047
11969+ 72031
11981+ 72019
12007+ 71993
12037+ 71963
12101+ 71899
12113+ 71887
12119+ 71881
12157+ 71843
12163+ 71837
12211+ 71789
12239+ 71761
12281+ 71719
12289+ 71711
12301+ 71699
12329+ 71671
12437+ 71563
12451+ 71549
12473+ 71527
12497+ 71503
12517+ 71483
12527+ 71473
12547+ 71453
12589+ 71411
12601+ 71399
12611+ 71389
12613+ 71387
12637+ 71363
12641+ 71359
12647+ 71353
12653+ 71347
12659+ 71341
12671+ 71329
12713+ 71287
12739+ 71261
12743+ 71257
12763+ 71237
12791+ 71209
12809+ 71191
12829+ 71171
12853+ 71147
12911+ 71089
12919+ 71081
12941+ 71059
13001+ 70999
13003+ 70997
13009+ 70991
13043+ 70957
13049+ 70951
13063+ 70937
13099+ 70901
13109+ 70891
13121+ 70879
13147+ 70853
13151+ 70849
13159+ 70841
13177+ 70823
13217+ 70783
13291+ 70709
13313+ 70687
13337+ 70663
13381+ 70619
13411+ 70589
13417+ 70583
13451+ 70549
13463+ 70537
13499+ 70501
13513+ 70487
13577+ 70423
13619+ 70381
13627+ 70373
13649+ 70351
13679+ 70321
13687+ 70313
13691+ 70309
13711+ 70289
13729+ 70271
13751+ 70249
13759+ 70241
13763+ 70237
13799+ 70201
13859+ 70141
13877+ 70123
13879+ 70121
13883+ 70117
13901+ 70099
13921+ 70079
13933+ 70067
13997+ 70003
13999+ 70001
14009+ 69991
14071+ 69929
14143+ 69857
14153+ 69847
14173+ 69827
14221+ 69779
14303+ 69697
14323+ 69677
14347+ 69653
14407+ 69593
14461+ 69539
14503+ 69497
14519+ 69481
14533+ 69467
14537+ 69463
14543+ 69457
14561+ 69439
14621+ 69379
14629+ 69371
14683+ 69317
14737+ 69263
14741+ 69259
14753+ 69247
14767+ 69233
14779+ 69221
14797+ 69203
14851+ 69149
14891+ 69109
14939+ 69061
14969+ 69031
15053+ 68947
15073+ 68927
15083+ 68917
15091+ 68909
15101+ 68899
15121+ 68879
15137+ 68863
15187+ 68813
15233+ 68767
15263+ 68737
15271+ 68729
15287+ 68713
15289+ 68711
15313+ 68687
15331+ 68669
15361+ 68639
15461+ 68539
15493+ 68507
15511+ 68489
15527+ 68473
15551+ 68449
15601+ 68399
15629+ 68371
15649+ 68351
15671+ 68329
15739+ 68261
15761+ 68239
15773+ 68227
15787+ 68213
15791+ 68209
15859+ 68141
15887+ 68113
15889+ 68111
15901+ 68099
15913+ 68087
15959+ 68041
16007+ 67993
16033+ 67967
16057+ 67943
16061+ 67939
16067+ 67933
16069+ 67931
16073+ 67927
16193+ 67807
16217+ 67783
16223+ 67777
16249+ 67751
16267+ 67733
16301+ 67699
16349+ 67651
16369+ 67631
16381+ 67619
16411+ 67589
16421+ 67579
16433+ 67567
16453+ 67547
16477+ 67523
16519+ 67481
16547+ 67453
16553+ 67447
16567+ 67433
16573+ 67427
16631+ 67369
16651+ 67349
16657+ 67343
16661+ 67339
16693+ 67307
16729+ 67271
16787+ 67213
16811+ 67189
16831+ 67169
16843+ 67157
16871+ 67129
16879+ 67121
16921+ 67079
16927+ 67073
16943+ 67057
16979+ 67021
17027+ 66973
17041+ 66959
17053+ 66947
17077+ 66923
17117+ 66883
17123+ 66877
17137+ 66863
17159+ 66841
17191+ 66809
17203+ 66797
17209+ 66791
17299+ 66701
17317+ 66683
17383+ 66617
17431+ 66569
17467+ 66533
17471+ 66529
17477+ 66523
17491+ 66509
17509+ 66491
17551+ 66449
17569+ 66431
17597+ 66403
17623+ 66377
17627+ 66373
17657+ 66343
17707+ 66293
17729+ 66271
17761+ 66239
17827+ 66173
17839+ 66161
17863+ 66137
17891+ 66109
17911+ 66089
17929+ 66071
17959+ 66041
17971+ 66029
18043+ 65957
18049+ 65951
18119+ 65881
18133+ 65867
18149+ 65851
18169+ 65831
18191+ 65809
18211+ 65789
18223+ 65777
18269+ 65731
18287+ 65713
18301+ 65699
18313+ 65687
18353+ 65647
18367+ 65633
18371+ 65629
18401+ 65599
18413+ 65587
18443+ 65557
18457+ 65543
18461+ 65539
18481+ 65519
18503+ 65497
18521+ 65479
18553+ 65447
18587+ 65413
18593+ 65407
18691+ 65309
18713+ 65287
18731+ 65269
18743+ 65257
18787+ 65213
18797+ 65203
18859+ 65141
18899+ 65101
18911+ 65089
18947+ 65053
18973+ 65027
19031+ 64969
19073+ 64927
19079+ 64921
19081+ 64919
19121+ 64879
19183+ 64817
19207+ 64793
19219+ 64781
19237+ 64763
19333+ 64667
19373+ 64627
19379+ 64621
19387+ 64613
19391+ 64609
19421+ 64579
19423+ 64577
19433+ 64567
19447+ 64553
19501+ 64499
19597+ 64403
19681+ 64319
19697+ 64303
19699+ 64301
19717+ 64283
19763+ 64237
19777+ 64223
19813+ 64187
19843+ 64157
19891+ 64109
19919+ 64081
19937+ 64063
19963+ 64037
19993+ 64007
20023+ 63977
20051+ 63949
20071+ 63929
20143+ 63857
20147+ 63853
20161+ 63839
20177+ 63823
20201+ 63799
20219+ 63781
20297+ 63703
20333+ 63667
20341+ 63659
20353+ 63647
20389+ 63611
20393+ 63607
20399+ 63601
20411+ 63589
20441+ 63559
20479+ 63521
20507+ 63493
20533+ 63467
20611+ 63389
20639+ 63361
20663+ 63337
20719+ 63281
20753+ 63247
20759+ 63241
20789+ 63211
20873+ 63127
20887+ 63113
20897+ 63103
20903+ 63097
20921+ 63079
21011+ 62989
21013+ 62987
21017+ 62983
21019+ 62981
21031+ 62969
21061+ 62939
21139+ 62861
21149+ 62851
21227+ 62773
21247+ 62753
21269+ 62731
21277+ 62723
21313+ 62687
21317+ 62683
21341+ 62659
21347+ 62653
21383+ 62617
21397+ 62603
21419+ 62581
21467+ 62533
21493+ 62507
21499+ 62501
21503+ 62497
21517+ 62483
21523+ 62477
21577+ 62423
21599+ 62401
21617+ 62383
21649+ 62351
21673+ 62327
21701+ 62299
21727+ 62273
21767+ 62233
21787+ 62213
21799+ 62201
21859+ 62141
21863+ 62137
21871+ 62129
21881+ 62119
21929+ 62071
21943+ 62057
21961+ 62039
21997+ 62003
22013+ 61987
22039+ 61961
22051+ 61949
22067+ 61933
22073+ 61927
22091+ 61909
22129+ 61871
22157+ 61843
22271+ 61729
22277+ 61723
22283+ 61717
22343+ 61657
22349+ 61651
22369+ 61631
22391+ 61609
22397+ 61603
22441+ 61559
22447+ 61553
22453+ 61547
22481+ 61519
22531+ 61469
22619+ 61381
22621+ 61379
22637+ 61363
22643+ 61357
22669+ 61331
22709+ 61291
22717+ 61283
22739+ 61261
22769+ 61231
22777+ 61223
22859+ 61141
22871+ 61129
22901+ 61099
22943+ 61057
22973+ 61027
22993+ 61007
23039+ 60961
23057+ 60943
23063+ 60937
23081+ 60919
23087+ 60913
23099+ 60901
23131+ 60869
23189+ 60811
23227+ 60773
23297+ 60703
23311+ 60689
23321+ 60679
23339+ 60661
23369+ 60631
23399+ 60601
23473+ 60527
23557+ 60443
23603+ 60397
23627+ 60373
23663+ 60337
23669+ 60331
23741+ 60259
23743+ 60257
23831+ 60169
23833+ 60167
23873+ 60127
23893+ 60107
23899+ 60101
23909+ 60091
23911+ 60089
23917+ 60083
23971+ 60029
24001+ 59999
24019+ 59981
24029+ 59971
24043+ 59957
24049+ 59951
24071+ 59929
24113+ 59887
24121+ 59879
24137+ 59863
24203+ 59797
24229+ 59771
24247+ 59753
24329+ 59671
24337+ 59663
24371+ 59629
24373+ 59627
24379+ 59621
24419+ 59581
24439+ 59561
24443+ 59557
24527+ 59473
24533+ 59467
24547+ 59453
24593+ 59407
24623+ 59377
24631+ 59369
24659+ 59341
24767+ 59233
24781+ 59219
24793+ 59207
24841+ 59159
24851+ 59149
24859+ 59141
24877+ 59123
24907+ 59093
24917+ 59083
24923+ 59077
24971+ 59029
24977+ 59023
24979+ 59021
24989+ 59011
25033+ 58967
25037+ 58963
25057+ 58943
25087+ 58913
25111+ 58889
25169+ 58831
25229+ 58771
25237+ 58763
25243+ 58757
25301+ 58699
25307+ 58693
25321+ 58679
25339+ 58661
25343+ 58657
25457+ 58543
25463+ 58537
25523+ 58477
25561+ 58439
25583+ 58417
25589+ 58411
25609+ 58391
25621+ 58379
25633+ 58367
25679+ 58321
25763+ 58237
25771+ 58229
25793+ 58207
25801+ 58199
25847+ 58153
25849+ 58151
25889+ 58111
25933+ 58067
25939+ 58061
25943+ 58057
25951+ 58049
25969+ 58031
26053+ 57947
26083+ 57917
26099+ 57901
26119+ 57881
26141+ 57859
26153+ 57847
26161+ 57839
26171+ 57829
26209+ 57791
26227+ 57773
26249+ 57751
26263+ 57737
26321+ 57679
26347+ 57653
26399+ 57601
26407+ 57593
26497+ 57503
26513+ 57487
26573+ 57427
26627+ 57373
26633+ 57367
26669+ 57331
26699+ 57301
26713+ 57287
26717+ 57283
26729+ 57271
26731+ 57269
26759+ 57241
26777+ 57223
26821+ 57179
26861+ 57139
26881+ 57119
26893+ 57107
26903+ 57097
26927+ 57073
26953+ 57047
26959+ 57041
27011+ 56989
27017+ 56983
27043+ 56957
27059+ 56941
27077+ 56923
27091+ 56909
27103+ 56897
27107+ 56893
27109+ 56891
27127+ 56873
27143+ 56857
27179+ 56821
27191+ 56809
27253+ 56747
27299+ 56701
27329+ 56671
27337+ 56663
27367+ 56633
27409+ 56591
27431+ 56569
27457+ 56543
27481+ 56519
27527+ 56473
27583+ 56417
27617+ 56383
27631+ 56369
27689+ 56311
27701+ 56299
27733+ 56267
27737+ 56263
27751+ 56249
27763+ 56237
27791+ 56209
27793+ 56207
27803+ 56197
27851+ 56149
27901+ 56099
27919+ 56081
27947+ 56053
27961+ 56039
27997+ 56003
28051+ 55949
28069+ 55931

后面还有很多,超长了不发了。

ysr 发表于 2020-11-9 21:57

210 219
840 451
1680 483

哥猜解的个数数据,据此拟合函数如下:
y=0.4281*x^0.7095,
当x=84000时,y=1334,实际为1662个素数和对。

ysr 发表于 2020-11-9 22:27

84006的方根为289.837885722347,方根内有14个总数有1117个:84006=19+ 83987
23+ 83983
37+ 83969
67+ 83939
73+ 83933
103+ 83903
137+ 83869
149+ 83857
163+ 83843
173+ 83833
193+ 83813
229+ 83777
233+ 83773
269+ 83737
317+ 83689
353+ 83653
367+ 83639
389+ 83617
397+ 83609
409+ 83597
443+ 83563
449+ 83557
509+ 83497
547+ 83459
557+ 83449
563+ 83443
569+ 83437
599+ 83407
607+ 83399
617+ 83389
733+ 83273
739+ 83267
773+ 83233
787+ 83219
829+ 83177
929+ 83077
947+ 83059
983+ 83023
997+ 83009
1009+ 82997
1093+ 82913
1103+ 82903
1117+ 82889
1123+ 82883
1193+ 82813
1213+ 82793
1249+ 82757
1277+ 82729
1279+ 82727
1283+ 82723
1307+ 82699
1373+ 82633
1439+ 82567
1447+ 82559
1499+ 82507
1523+ 82483
1543+ 82463
1549+ 82457
1613+ 82393
1619+ 82387
1657+ 82349
1667+ 82339
1699+ 82307
1783+ 82223
1787+ 82219
1789+ 82217
1823+ 82183
1867+ 82139
1877+ 82129
1933+ 82073
1993+ 82013
1997+ 82009
1999+ 82007
2003+ 82003
2039+ 81967
2053+ 81953
2063+ 81943
2069+ 81937
2087+ 81919
2137+ 81869
2153+ 81853
2207+ 81799
2237+ 81769
2269+ 81737
2339+ 81667
2357+ 81649
2377+ 81629
2437+ 81569
2447+ 81559
2459+ 81547
2473+ 81533
2543+ 81463
2549+ 81457
2633+ 81373
2647+ 81359
2657+ 81349
2663+ 81343
2699+ 81307
2707+ 81299
2713+ 81293
2767+ 81239
2803+ 81203
2833+ 81173
2843+ 81163
2887+ 81119
2909+ 81097
2957+ 81049
2963+ 81043
3083+ 80923
3089+ 80917
3109+ 80897
3187+ 80819
3203+ 80803
3217+ 80789
3229+ 80777
3257+ 80749
3259+ 80747
3319+ 80687
3323+ 80683
3329+ 80677
3407+ 80599
3449+ 80557
3469+ 80537
3517+ 80489
3533+ 80473
3557+ 80449
3559+ 80447
3637+ 80369
3643+ 80363
3659+ 80347
3677+ 80329
3697+ 80309
3719+ 80287
3727+ 80279
3733+ 80273
3767+ 80239
3797+ 80209
3833+ 80173
3853+ 80153
3929+ 80077
3967+ 80039
4007+ 79999
4019+ 79987
4027+ 79979
4099+ 79907
4133+ 79873
4139+ 79867
4159+ 79847
4177+ 79829
4229+ 79777
4337+ 79669
4349+ 79657
4373+ 79633
4397+ 79609
4447+ 79559
4457+ 79549
4513+ 79493
4583+ 79423
4639+ 79367
4649+ 79357
4657+ 79349
4673+ 79333
4723+ 79283
4733+ 79273
4813+ 79193
4903+ 79103
4919+ 79087
4943+ 79063
4967+ 79039
5077+ 78929
5087+ 78919
5113+ 78893
5119+ 78887
5153+ 78853
5167+ 78839
5197+ 78809
5209+ 78797
5227+ 78779
5309+ 78697
5399+ 78607
5413+ 78593
5437+ 78569
5519+ 78487
5527+ 78479
5569+ 78437
5639+ 78367
5659+ 78347
5689+ 78317
5813+ 78193
5827+ 78179
5839+ 78167
5843+ 78163
5849+ 78157
5867+ 78139
5869+ 78137
5927+ 78079
6007+ 77999
6029+ 77977
6037+ 77969
6073+ 77933
6113+ 77893
6143+ 77863
6263+ 77743
6287+ 77719
6317+ 77689
6359+ 77647
6389+ 77617
6449+ 77557
6529+ 77477
6637+ 77369
6659+ 77347
6689+ 77317
6737+ 77269
6763+ 77243
6793+ 77213
6869+ 77137
6959+ 77047
6977+ 77029
6983+ 77023
7043+ 76963
7057+ 76949
7159+ 76847
7177+ 76829
7187+ 76819
7229+ 76777
7253+ 76753
7309+ 76697
7333+ 76673
7487+ 76519
7499+ 76507
7583+ 76423
7603+ 76403
7639+ 76367
7673+ 76333
7703+ 76303
7717+ 76289
7723+ 76283
7753+ 76253
7757+ 76249
7793+ 76213
7877+ 76129
7883+ 76123
7907+ 76099
7927+ 76079
8009+ 75997
8017+ 75989
8039+ 75967
8069+ 75937
8093+ 75913
8123+ 75883
8209+ 75797
8219+ 75787
8233+ 75773
8263+ 75743
8297+ 75709
8317+ 75689
8353+ 75653
8377+ 75629
8387+ 75619
8389+ 75617
8423+ 75583
8429+ 75577
8467+ 75539
8527+ 75479
8599+ 75407
8629+ 75377
8669+ 75337
8677+ 75329
8699+ 75307
8737+ 75269
8753+ 75253
8779+ 75227
8783+ 75223
8837+ 75169
8839+ 75167
8923+ 75083
8969+ 75037
9103+ 74903
9109+ 74897
9133+ 74873
9137+ 74869
9209+ 74797
9227+ 74779
9277+ 74729
9293+ 74713
9319+ 74687
9397+ 74609
9419+ 74587
9433+ 74573
9439+ 74567
9479+ 74527
9497+ 74509
9587+ 74419
9623+ 74383
9629+ 74377
9643+ 74363
9649+ 74357
9689+ 74317
9719+ 74287
9749+ 74257
9787+ 74219
9803+ 74203
9817+ 74189
9829+ 74177
9839+ 74167
9857+ 74149
9907+ 74099
9929+ 74077
10007+ 73999
10067+ 73939
10099+ 73907
10139+ 73867
10159+ 73847
10223+ 73783
10313+ 73693
10333+ 73673
10369+ 73637
10399+ 73607
10453+ 73553
10459+ 73547
10477+ 73529
10529+ 73477
10589+ 73417
10627+ 73379
10729+ 73277
10987+ 73019
10993+ 73013
11047+ 72959
11057+ 72949
11069+ 72937
11083+ 72923
11113+ 72893
11117+ 72889
11239+ 72767
11243+ 72763
11273+ 72733
11279+ 72727
11287+ 72719
11299+ 72707
11317+ 72689
11383+ 72623
11393+ 72613
11447+ 72559
11503+ 72503
11699+ 72307
11719+ 72287
11777+ 72229
11779+ 72227
11783+ 72223
11833+ 72173
11839+ 72167
11867+ 72139
11897+ 72109
11903+ 72103
11933+ 72073
11953+ 72053
11959+ 72047
11987+ 72019
12007+ 71999
12043+ 71963
12073+ 71933
12097+ 71909
12107+ 71899
12119+ 71887
12157+ 71849
12163+ 71843
12197+ 71809
12343+ 71663
12373+ 71633
12409+ 71597
12413+ 71593
12437+ 71569
12457+ 71549
12479+ 71527
12503+ 71503
12527+ 71479
12553+ 71453
12569+ 71437
12577+ 71429
12619+ 71387
12647+ 71359
12653+ 71353
12659+ 71347
12689+ 71317
12713+ 71293
12743+ 71263
12757+ 71249
12853+ 71153
12917+ 71089
12967+ 71039
12983+ 71023
13007+ 70999
13009+ 70997
13037+ 70969
13049+ 70957
13093+ 70913
13127+ 70879
13163+ 70843
13183+ 70823
13297+ 70709
13339+ 70667
13367+ 70639
13399+ 70607
13417+ 70589
13457+ 70549
13469+ 70537
13477+ 70529
13499+ 70507
13567+ 70439
13577+ 70429
13613+ 70393
13627+ 70379
13633+ 70373
13679+ 70327
13693+ 70313
13697+ 70309
13709+ 70297
13757+ 70249
13799+ 70207
13807+ 70199
13829+ 70177
13883+ 70123
13907+ 70099
13967+ 70039
13997+ 70009
14009+ 69997
14107+ 69899
14149+ 69857
14159+ 69847
14173+ 69833
14177+ 69829
14197+ 69809
14243+ 69763
14449+ 69557
14533+ 69473
14543+ 69463
14549+ 69457
14627+ 69379
14669+ 69337
14747+ 69259
14759+ 69247
14767+ 69239
14813+ 69193
14843+ 69163
14879+ 69127
14887+ 69119
14897+ 69109
14939+ 69067
15013+ 68993
15107+ 68899
15187+ 68819
15193+ 68813
15263+ 68743
15269+ 68737
15277+ 68729
15307+ 68699
15319+ 68687
15373+ 68633
15439+ 68567
15467+ 68539
15559+ 68447
15569+ 68437
15607+ 68399
15727+ 68279
15767+ 68239
15787+ 68219
15797+ 68209
15859+ 68147
15907+ 68099
15919+ 68087
16063+ 67943
16067+ 67939
16073+ 67933
16139+ 67867
16187+ 67819
16217+ 67789
16223+ 67783
16229+ 67777
16249+ 67757
16273+ 67733
16417+ 67589
16427+ 67579
16447+ 67559
16529+ 67477
16553+ 67453
16573+ 67433
16607+ 67399
16657+ 67349
16699+ 67307
16759+ 67247
16787+ 67219
16903+ 67103
16927+ 67079
16963+ 67043
17029+ 66977
17033+ 66973
17047+ 66959
17117+ 66889
17123+ 66883
17209+ 66797
17257+ 66749
17293+ 66713
17377+ 66629
17389+ 66617
17419+ 66587
17477+ 66529
17483+ 66523
17497+ 66509
17539+ 66467
17623+ 66383
17659+ 66347
17669+ 66337
17713+ 66293
17827+ 66179
17837+ 66169
17903+ 66103
17923+ 66083
17939+ 66067
17959+ 66047
17977+ 66029
18013+ 65993
18043+ 65963
18049+ 65957
18077+ 65929
18169+ 65837
18217+ 65789
18229+ 65777
18287+ 65719
18289+ 65717
18307+ 65699
18329+ 65677
18397+ 65609
18427+ 65579
18443+ 65563
18583+ 65423
18587+ 65419
18593+ 65413
18679+ 65327
18713+ 65293
18719+ 65287
18749+ 65257
18793+ 65213
18803+ 65203
18839+ 65167
18859+ 65147
18917+ 65089
18973+ 65033
18979+ 65027
19009+ 64997
19037+ 64969
19069+ 64937
19079+ 64927
19087+ 64919
19157+ 64849
19213+ 64793
19259+ 64747
19289+ 64717
19373+ 64633
19379+ 64627
19427+ 64579
19429+ 64577
19507+ 64499
19553+ 64453
19603+ 64403
19687+ 64319
19727+ 64279
19819+ 64187
19853+ 64153
19973+ 64033
19993+ 64013
20029+ 63977
20143+ 63863
20149+ 63857
20183+ 63823
20233+ 63773
20269+ 63737
20287+ 63719
20297+ 63709
20347+ 63659
20357+ 63649
20359+ 63647
20389+ 63617
20399+ 63607
20407+ 63599
20479+ 63527
20507+ 63499
20533+ 63473
20543+ 63463
20563+ 63443
20639+ 63367
20693+ 63313
20707+ 63299
20759+ 63247
20807+ 63199
20809+ 63197
20857+ 63149
20879+ 63127
20903+ 63103
20939+ 63067
20947+ 63059
21017+ 62989
21019+ 62987
21023+ 62983
21067+ 62939
21179+ 62827
21187+ 62819
21283+ 62723
21319+ 62687
21323+ 62683
21347+ 62659
21379+ 62627
21467+ 62539
21499+ 62507
21523+ 62483
21529+ 62477
21589+ 62417
21683+ 62323
21773+ 62233
21787+ 62219
21799+ 62207
21817+ 62189
21863+ 62143
22003+ 62003
22027+ 61979
22039+ 61967
22073+ 61933
22079+ 61927
22193+ 61813
22277+ 61729
22283+ 61723
22303+ 61703
22349+ 61657
22369+ 61637
22397+ 61609
22447+ 61559
22453+ 61553
22543+ 61463
22643+ 61363
22709+ 61297
22783+ 61223
22853+ 61153
22877+ 61129
22907+ 61099
22963+ 61043
23053+ 60953
23063+ 60943
23087+ 60919
23117+ 60889
23227+ 60779
23269+ 60737
23279+ 60727
23327+ 60679
23357+ 60649
23369+ 60637
23399+ 60607
23417+ 60589
23497+ 60509
23509+ 60497
23549+ 60457
23557+ 60449
23563+ 60443
23593+ 60413
23609+ 60397
23623+ 60383
23633+ 60373
23663+ 60343
23669+ 60337
23689+ 60317
23747+ 60259
23789+ 60217
23857+ 60149
23873+ 60133
23879+ 60127
23899+ 60107
23917+ 60089
23929+ 60077
23977+ 60029
23993+ 60013
24007+ 59999
24049+ 59957
24077+ 59929
24197+ 59809
24337+ 59669
24379+ 59627
24439+ 59567
24509+ 59497
24533+ 59473
24733+ 59273
24763+ 59243
24767+ 59239
24799+ 59207
24809+ 59197
24847+ 59159
24923+ 59083
24943+ 59063
24953+ 59053
24977+ 59029
25097+ 58909
25117+ 58889
25219+ 58787
25243+ 58763
25307+ 58699
25349+ 58657
25439+ 58567
25457+ 58549
25463+ 58543
25469+ 58537
25579+ 58427
25589+ 58417
25603+ 58403
25639+ 58367
25643+ 58363
25693+ 58313
25763+ 58243
25799+ 58207
25933+ 58073
25939+ 58067
26029+ 57977
26083+ 57923
26107+ 57899
26153+ 57853
26177+ 57829
26203+ 57803
26293+ 57713
26297+ 57709
26309+ 57697
26317+ 57689
26339+ 57667
26357+ 57649
26449+ 57557
26479+ 57527
26513+ 57493
26539+ 57467
26633+ 57373
26723+ 57283
26737+ 57269
26783+ 57223
26813+ 57193
26833+ 57173
26863+ 57143
26947+ 57059
26959+ 57047
27017+ 56989
27043+ 56963
27077+ 56929
27109+ 56897
27179+ 56827
27197+ 56809
27239+ 56767
27259+ 56747
27407+ 56599
27409+ 56597
27437+ 56569
27479+ 56527
27487+ 56519
27527+ 56479
27529+ 56477
27539+ 56467
27647+ 56359
27673+ 56333
27737+ 56269
27739+ 56267
27743+ 56263
27767+ 56239
27799+ 56207
27809+ 56197
27827+ 56179
27883+ 56123
27893+ 56113
27919+ 56087
27953+ 56053
27967+ 56039
27997+ 56009
28019+ 55987
28057+ 55949
28109+ 55897
28163+ 55843
28183+ 55823
28219+ 55787
28289+ 55717
28309+ 55697
28387+ 55619
28403+ 55603
28477+ 55529
28537+ 55469
28549+ 55457
28607+ 55399
28663+ 55343
28669+ 55337
28789+ 55217
28793+ 55213
28843+ 55163
28859+ 55147
28879+ 55127
28927+ 55079
28933+ 55073
28949+ 55057
29023+ 54983
29027+ 54979
29033+ 54973
29129+ 54877
29137+ 54869
29173+ 54833
29207+ 54799
29297+ 54709
29327+ 54679
29333+ 54673
29339+ 54667
29383+ 54623
29389+ 54617
29423+ 54583
29429+ 54577
29443+ 54563
29537+ 54469
29569+ 54437
29587+ 54419
29629+ 54377
29683+ 54323
29789+ 54217
29867+ 54139
29873+ 54133
29947+ 54059
30013+ 53993
30047+ 53959
30089+ 53917
30109+ 53897
30119+ 53887
30187+ 53819
30223+ 53783
30307+ 53699
30313+ 53693
30367+ 53639
30389+ 53617
30553+ 53453
30697+ 53309
30707+ 53299
30727+ 53279
30773+ 53233
30809+ 53197
30817+ 53189
30859+ 53147
30893+ 53113
30937+ 53069
31033+ 52973
31039+ 52967
31069+ 52937
31123+ 52883
31147+ 52859
31189+ 52817
31193+ 52813
31223+ 52783
31237+ 52769
31249+ 52757
31259+ 52747
31333+ 52673
31379+ 52627
31397+ 52609
31477+ 52529
31489+ 52517
31517+ 52489
31573+ 52433
31627+ 52379
31643+ 52363
31769+ 52237
31817+ 52189
31859+ 52147
32029+ 51977
32057+ 51949
32077+ 51929
32099+ 51907
32189+ 51817
32203+ 51803
32237+ 51769
32257+ 51749
32323+ 51683
32327+ 51679
32359+ 51647
32369+ 51637
32413+ 51593
32429+ 51577
32443+ 51563
32467+ 51539
32503+ 51503
32533+ 51473
32569+ 51437
32579+ 51427
32587+ 51419
32719+ 51287
32749+ 51257
32789+ 51217
32803+ 51203
32869+ 51137
33013+ 50993
33037+ 50969
33049+ 50957
33083+ 50923
33113+ 50893
33149+ 50857
33359+ 50647
33413+ 50593
33457+ 50549
33479+ 50527
33493+ 50513
33503+ 50503
33547+ 50459
33589+ 50417
33619+ 50387
33623+ 50383
33629+ 50377
33647+ 50359
33829+ 50177
33937+ 50069
34129+ 49877
34183+ 49823
34217+ 49789
34259+ 49747
34267+ 49739
34337+ 49669
34367+ 49639
34403+ 49603
34457+ 49549
34469+ 49537
34483+ 49523
34543+ 49463
34589+ 49417
34613+ 49393
34667+ 49339
34673+ 49333
34729+ 49277
34807+ 49199
34849+ 49157
34883+ 49123
34897+ 49109
34949+ 49057
34963+ 49043
35053+ 48953
35059+ 48947
35099+ 48907
35117+ 48889
35149+ 48857
35159+ 48847
35227+ 48779
35327+ 48679
35509+ 48497
35527+ 48479
35533+ 48473
35543+ 48463
35569+ 48437
35593+ 48413
35597+ 48409
35747+ 48259
35759+ 48247
35809+ 48197
35897+ 48109
35933+ 48073
35977+ 48029
35983+ 48023
36037+ 47969
36067+ 47939
36073+ 47933
36137+ 47869
36187+ 47819
36209+ 47797
36229+ 47777
36263+ 47743
36269+ 47737
36293+ 47713
36307+ 47699
36353+ 47653
36383+ 47623
36473+ 47533
36479+ 47527
36493+ 47513
36587+ 47419
36599+ 47407
36643+ 47363
36653+ 47353
36697+ 47309
36709+ 47297
36713+ 47293
36857+ 47149
36877+ 47129
36887+ 47119
36913+ 47093
36919+ 47087
36947+ 47059
37013+ 46993
37049+ 46957
37087+ 46919
37117+ 46889
37139+ 46867
37189+ 46817
37199+ 46807
37357+ 46649
37363+ 46643
37447+ 46559
37483+ 46523
37507+ 46499
37517+ 46489
37529+ 46477
37549+ 46457
37567+ 46439
37607+ 46399
37657+ 46349
37699+ 46307
37853+ 46153
37907+ 46099
37957+ 46049
38047+ 45959
38053+ 45953
38113+ 45893
38119+ 45887
38153+ 45853
38183+ 45823
38189+ 45817
38239+ 45767
38299+ 45707
38329+ 45677
38333+ 45673
38393+ 45613
38449+ 45557
38453+ 45553
38567+ 45439
38593+ 45413
38603+ 45403
38629+ 45377
38669+ 45337
38677+ 45329
38699+ 45307
38713+ 45293
38747+ 45259
38867+ 45139
38923+ 45083
38953+ 45053
38993+ 45013
39019+ 44987
39023+ 44983
39043+ 44963
39047+ 44959
39079+ 44927
39089+ 44917
39097+ 44909
39113+ 44893
39119+ 44887
39139+ 44867
39163+ 44843
39209+ 44797
39217+ 44789
39229+ 44777
39233+ 44773
39323+ 44683
39359+ 44647
39373+ 44633
39383+ 44623
39419+ 44587
39443+ 44563
39499+ 44507
39509+ 44497
39623+ 44383
39727+ 44279
39733+ 44273
39749+ 44257
39799+ 44207
39827+ 44179
39847+ 44159
39877+ 44129
39883+ 44123
39887+ 44119
39953+ 44053
39979+ 44027
39989+ 44017
40009+ 43997
40037+ 43969
40063+ 43943
40093+ 43913
40153+ 43853
40213+ 43793
40253+ 43753
40289+ 43717
40357+ 43649
40427+ 43579
40429+ 43577
40433+ 43573
40507+ 43499
40519+ 43487
40609+ 43397
40693+ 43313
40829+ 43177
40847+ 43159
40903+ 43103
40939+ 43067
40993+ 43013
41017+ 42989
41039+ 42967
41077+ 42929
41143+ 42863
41177+ 42829
41213+ 42793
41233+ 42773
41263+ 42743
41269+ 42737
41357+ 42649
41507+ 42499
41519+ 42487
41539+ 42467
41543+ 42463
41549+ 42457
41597+ 42409
41603+ 42403
41609+ 42397
41627+ 42379
41647+ 42359
41669+ 42337
41809+ 42197
41813+ 42193
41849+ 42157
41983+ 42023

ysr 发表于 2020-11-9 22:35

显然第一个数列的结果比第二个数列的结果大,若两个数列交互排列则波动明显幅度太大。
下面分别拟合一下,(近似的函数)
210 219
840 451
1680 483

哥猜解的个数数据,据此拟合函数如下:
y=0.4281*x^0.7095,
当x=84000时,y=1334,实际为1662个素数和对。

ysr 发表于 2020-11-9 22:38

显然第一个数列的结果比第二个数列的结果大,若两个数列交互排列则波动明显幅度太大。
下面分别拟合一下,(近似的函数)
216 113
846432
1686456

哥猜解的个数数据,据此拟合函数如下:
y=0.2917*x^0.7036,
当x=84006时,y=850,实际为1117个素数和对。

ysr 发表于 2020-11-11 19:37

(偶数)(方根内的素数构成的素数和对个数)(总素数和对个数)
34 24
244 39
454 212
664 516
874 219
1084 121
1294 426
1504 427
1714 227
1924 334
2134 335
2344 436
2554 441
2764 237
2974 549
3184 342
3394 448
3604 349
3814 449
4024 555
4234 455
4444 460
4654 459
4864 257

ysr 发表于 2020-11-11 21:51

218 17
848 115
1688 226

220 09
850 325
1690 137

244 39
874 219
1714 227
据此可以拟合函数:
拟合函数依次如下:y=0.2301*x^0.6299,y=0.2078*x^0.7021,y=0.4024*x^0.5664.
页: 1 2 [3] 4 5 6 7 8 9 10 11 12
查看完整版本: 几个vb小程序