(In reply to
re: computer evaluation by Jer)
10 while Ct<9999
20 P0=nxtprm(P0) ' p0 is n
30 Sum=P0:P1=P0
40 for I=2 to P0
50 P1=nxtprm(P1)
60 Sum=Sum+P1
70 next
80 P2=prm(P0)
90 Prod=P0*P2
100 print P0,Sum;Prod
110 inc Ct
115 if Ct @ 44=0 then stop
120 wend
2 5 6
3 15 15
5 53 55
7 119 119
11 311 341
13 473 533
17 833 1003
19 1103 1273
23 1643 1909
29 2647 3161
31 3137 3937
37 4501 5809
41 5633 7339
43 6363 8213
47 7701 9917
53 9863 12773
59 12337 16343
61 13447 17263
67 16339 22177
71 18545 25063
73 19907 26791
79 23421 31679
83 26149 35773
89 30243 41029
97 35925 49373
101 39253 55247
103 41307 57989
107 44927 62809
109 47123 65291
113 51039 69721
127 63941 90043
131 68521 96809
137 75285 105901
139 78201 110783
149 89729 127991
151 92889 132427
157 100745 144283
163 109003 157621
167 115045 165497
173 123895 178363
179 133027 190277
181 137001 196747
191 152661 220223
193 156921 226003
197 164243 236597
199 168669 242183
211 189149 273667
223 210833 314207
227 219387 325291
229 224519 331363
233 233403 342743
239 246287 358261
241 251769 367043
251 273223 400847
257 287211 416597
263 301573 438947
269 316257 463487
271 322531 471811
277 337871 494999
281 348971 512263
283 355589 522701
293 381197 560509
307 417561 622289
311 429967 641593
313 437383 651353
317 450143 665383
331 490101 735151
337 509017 764653
347 539701 812327
349 547981 820499
353 562185 840493
359 582583 867703
367 609533 909059
373 630903 950777
379 652791 988811
383 668539 1013801
389 691103 1043687
397 720739 1079443
401 737273 1102349
409 767975 1146427
419 806425 1213843
421 816741 1224689
431 856287 1293431
433 866921 1307227
439 892577 1346413
443 911043 1377287
449 937431 1422881
457 972069 1475653
461 991329 1502399
463 1002861 1527437
467 1022485 1549973
479 1075249 1631953
487 1112493 1689403
491 1133233 1726847
499 1171419 1775941
503 1192753 1807279
509 1223239 1851233
521 1281343 1944893
523 1294563 1967003
541 1382803 2115851
547 1415773 2156821
557 1468847 2243039
563 1502947 2303233
569 1537359 2351677
571 1551873 2371363
577 1586857 2433209
587 1643031 2508251
593 1679185 2573027
599 1715785 2633803
601 1731305 2657021
607 1768583 2709041
613 1806173 2768921
617 1833073 2806733
619 1849035 2826973
631 1921361 2942353
641 1983473 3050519
643 2000143 3078041
647 2028533 3106247
653 2068813 3184681
659 2109379 3250847
661 2126539 3267323
673 2204381 3379133
677 2234265 3424943
683 2276747 3488081
691 2332181 3585599
701 2400885 3701981
709 2457583 3815129
719 2528263 3912079
727 2586783 4000681
733 2632707 4073281
739 2678967 4155397
743 2712103 4198693
751 2772829 4281451
757 2820335 4351993
761 2854361 4414561
769 2916579 4499419
773 2951097 4536737
787 3057859 4751119
797 3137233 4872061
809 3232971 5029553
811 3254657 5051719
821 3336859 5181331
823 3358801 5203829
827 3396091 5253931
829 3418255 5273269
839 3502305 5427491
853 3619157 5628947
857 3657969 5701621
859 3681019 5721799
863 3720289 5774333
877 3841181 5983771
881 3881375 6026921
883 3905207 6060029
887 3945707 6119413
907 4121139 6400699
911 4162899 6476299
919 4239389 6610367
929 4333949 6765907
937 4411771 6887887
941 4454915 6979397
947 4515977 7084507
953 4577563 7169419
967 4712063 7355969
971 4756753 7427179
977 4820043 7521923
983 4883737 7621199
991 4966585 7770431
997 5031295 7859351
1009 5153209 8083099
1013 5199851 8163767
1019 5266061 8254919
1021 5293965 8287457
1031 5399751 8475851
1033 5428037 8504689
1039 5495675 8610193
1049 5603343 8787473
1051 5632115 8816839
1061 5741463 9032293
1063 5770697 9064201
1069 5840631 9173089
1087 6034387 9477553
1091 6085039 9542977
1093 6115165 9575773
1097 6166303 9661279
1103 6238675 9760447
1109 6311623 9895607
1117 6406349 10051883
1123 6480267 10153043
1129 6554705 10277287
1151 6805245 10696243
1153 6837317 10744807
1163 6958637 10935689
1171 7058585 11078831
1181 7182013 11265559
1187 7260785 11417753
1193 7339999 11525573
1201 7442925 11696539
1213 7593769 11927429
1217 7651515 11998403
1223 7733125 12135829
1229 7815215 12256817
1231 7849799 12321079
1237 7932395 12467723
1249 8088129 12701081
1259 8220971 12926153
1277 8453981 13322941
1279 8489995 13374503
1283 8551063 13454821
1289 8637365 13610551
1291 8673717 13670399
1297 8760569 13788407
1301 8822469 13872563
1303 8859187 13925161
1307 8921457 14014961
1319 9086649 14315107
1321 9124029 14347381
1327 9213231 14476243
1361 9671013 15320777
1367 9762905 15462137
1373 9855331 15609637
1381 9975215 15808307
1399 10232717 16274567
1409 10382511 16545887
1423 10589125 16886741
1427 10657493 16994143
1429 10698085 17043683
1433 10766897 17128649
1439 10864267 17278073
1447 10990705 17504359
1451 11060779 17575963
1453 11102343 17643779
1459 11201673 17804177
1471 11388465 18094771
1481 11547469 18377729
1483 11589937 18420343
1487 11661935 18523559
1489 11704639 18581231
1493 11776917 18666979
1499 11879015 18807953
1511 12071069 19109617
1523 12264917 19438049
1531 12399613 19659571
1543 12596205 19995737
1549 12701849 20141647
1553 12777119 20246461
1559 12883463 20427577
1567 13021325 20638957
1571 13097601 20763907
1579 13236727 20995963
1583 13313575 21102973
1597 13548609 21509993
1601 13626405 21634313
1607 13736263 21840737
1609 13782591 21903317
1613 13861141 22015837
1619 13972075 22168967
1621 14018797 22222289
1627 14130425 22382639
1637 14307815 22687183
1657 14651547 23282507
1663 14766051 23459941
1667 14847639 23603053
1669 14896029 23661413
1693 15315373 24441841
. . .
and
10 while Ct<9999
20 P0=nxtprm(P0) ' p0 is n
30 Sum=P0:P1=P0
40 for I=2 to P0
50 P1=nxtprm(P1)
60 Sum=Sum+P1
70 next
80 P2=prm(P0)
90 Prod=P0*P2
100 if sum>prod then print P0,Sum;Prod
110 inc Ct
120 wend
never finds any where the sum exceeds the product.
|
|
Posted by Charlie
on 2014-03-20 23:06:48 |
re(2): computer evaluation -- sums and products
