Composite numbers k with no single digit factors whose factors are all substrings of k: Difference between revisions

Content added Content deleted
m (→‎{{header|Free Pascal}}: tested til 1E10)
m (→‎{{header|Free Pascal}}: added Numb2USA aka commatize)
Line 107: Line 107:
{$ENDIF}
{$ENDIF}
uses
uses
sysutils
sysutils,
strutils //Numb2USA
{$IFDEF WINDOWS},Windows{$ENDIF}
{$IFDEF WINDOWS},Windows{$ENDIF}
;
;
Line 195: Line 196:
chk,p,i: NativeInt;
chk,p,i: NativeInt;
Begin
Begin
str(n:12,s);
str(n,s);
result := s+': ';
result := Format('%15s : ',[Numb2USA(s)]);

with pd^ do
with pd^ do
begin
begin
Line 458: Line 460:
<pre style="height:480px">
<pre style="height:480px">
Real time: 2.166 s CPU share: 99.20 %//500*1000*1000 Real time: 38.895 s CPU share: 99.28 %
Real time: 2.166 s CPU share: 99.20 %//500*1000*1000 Real time: 38.895 s CPU share: 99.28 %
1 15317: 17^2*53
1 15,317 : 17^2*53
2 59177: 17*59^2
2 59,177 : 17*59^2
3 83731: 31*37*73
3 83,731 : 31*37*73
4 119911: 11^2*991
4 119,911 : 11^2*991
5 183347: 47^2*83
5 183,347 : 47^2*83
6 192413: 13*19^2*41
6 192,413 : 13*19^2*41
7 1819231: 19*23^2*181
7 1,819,231 : 19*23^2*181
8 2111317: 13^3*31^2
8 2,111,317 : 13^3*31^2
9 2237411: 11^3*41^2
9 2,237,411 : 11^3*41^2
10 3129361: 29^2*61^2
10 3,129,361 : 29^2*61^2
11 5526173: 17*61*73^2
11 5,526,173 : 17*61*73^2
12 11610313: 11^4*13*61
12 11,610,313 : 11^4*13*61
13 13436683: 13^2*43^3
13 13,436,683 : 13^2*43^3
14 13731373: 73*137*1373
14 13,731,373 : 73*137*1373
15 13737841: 13^5*37
15 13,737,841 : 13^5*37
16 13831103: 11*13*311^2
16 13,831,103 : 11*13*311^2
17 15813251: 251^3
17 15,813,251 : 251^3
18 17692313: 23*769231
18 17,692,313 : 23*769231
19 19173071: 19^2*173*307
19 19,173,071 : 19^2*173*307
20 28118827: 11^2*281*827
20 28,118,827 : 11^2*281*827
runtime 2.011 s
runtime 2.011 s


//@home til 1E10 .. 188 9898707359: 59^2*89^2*359
//@home til 1E10 .. 188 9,898,707,359 : 59^2*89^2*359
21 31373137: 73*137*3137
21 31,373,137 : 73*137*3137
22 47458321: 83^4
22 47,458,321 : 83^4
23 55251877: 251^2*877
23 55,251,877 : 251^2*877
24 62499251: 251*499^2
24 62,499,251 : 251*499^2
25 79710361: 103*797*971
25 79,710,361 : 103*797*971
26 81227897: 89*97^3
26 81,227,897 : 89*97^3
27 97337269: 37^2*97*733
27 97,337,269 : 37^2*97*733
28 103192211: 19^2*31*9221
28 103,192,211 : 19^2*31*9221
29 107132311: 11^2*13^4*31
29 107,132,311 : 11^2*13^4*31
30 119503483: 11*19*83^3
30 119,503,483 : 11*19*83^3
31 119759299: 11*19*29*19759
31 119,759,299 : 11*19*29*19759
32 124251499: 499^3
32 124,251,499 : 499^3
33 131079601: 107^4
33 131,079,601 : 107^4
34 142153597: 59^2*97*421
34 142,153,597 : 59^2*97*421
35 147008443: 43^5
35 147,008,443 : 43^5
36 171197531: 17^2*31*97*197
36 171,197,531 : 17^2*31*97*197
37 179717969: 71*79*179^2
37 179,717,969 : 71*79*179^2
38 183171409: 71*1409*1831
38 183,171,409 : 71*1409*1831
39 215797193: 19*1579*7193
39 215,797,193 : 19*1579*7193
40 241153517: 11*17*241*5351
40 241,153,517 : 11*17*241*5351
41 248791373: 73*373*9137
41 248,791,373 : 73*373*9137
42 261113281: 11^2*13^2*113^2
42 261,113,281 : 11^2*13^2*113^2
43 272433191: 19*331*43319
43 272,433,191 : 19*331*43319
44 277337147: 71*73^2*733
44 277,337,147 : 71*73^2*733
45 291579719: 19*1579*9719
45 291,579,719 : 19*1579*9719
46 312239471: 31^3*47*223
46 312,239,471 : 31^3*47*223
47 344972429: 29*3449^2
47 344,972,429 : 29*3449^2
48 364181311: 13^4*41*311
48 364,181,311 : 13^4*41*311
49 381317911: 13^6*79
49 381,317,911 : 13^6*79
50 385494799: 47^4*79
50 385,494,799 : 47^4*79
51 392616923: 23^5*61
51 392,616,923 : 23^5*61
52 399311341: 11*13^4*31*41
52 399,311,341 : 11*13^4*31*41
53 410963311: 11^2*31*331^2
53 410,963,311 : 11^2*31*331^2
54 413363353: 13^4*41*353
54 413,363,353 : 13^4*41*353
55 423564751: 751^3
55 423,564,751 : 751^3
56 471751831: 31*47^2*83^2
56 471,751,831 : 31*47^2*83^2
57 492913739: 73*739*9137
57 492,913,739 : 73*739*9137
58 501225163: 163*251*12251
58 501,225,163 : 163*251*12251
59 591331169: 11*13^2*31^2*331
59 591,331,169 : 11*13^2*31^2*331
60 592878929: 29^2*89^3
60 592,878,929 : 29^2*89^3
61 594391193: 11*19^2*43*59^2
61 594,391,193 : 11*19^2*43*59^2
62 647959343: 47^3*79^2
62 647,959,343 : 47^3*79^2
63 717528911: 11^2*17^4*71
63 717,528,911 : 11^2*17^4*71
64 723104383: 23^2*43*83*383
64 723,104,383 : 23^2*43*83*383
65 772253089: 53^2*89*3089
65 772,253,089 : 53^2*89*3089
66 799216219: 79^3*1621
66 799,216,219 : 79^3*1621
67 847253389: 53^2*89*3389
67 847,253,389 : 53^2*89*3389
68 889253557: 53^2*89*3557
68 889,253,557 : 53^2*89*3557
69 889753559: 53^2*89*3559
69 889,753,559 : 53^2*89*3559
70 892753571: 53^2*89*3571
70 892,753,571 : 53^2*89*3571
71 892961737: 17^2*37^3*61
71 892,961,737 : 17^2*37^3*61
72 895253581: 53^2*89*3581
72 895,253,581 : 53^2*89*3581
73 895753583: 53^2*89*3583
73 895,753,583 : 53^2*89*3583
74 898253593: 53^2*89*3593
74 898,253,593 : 53^2*89*3593
75 972253889: 53^2*89*3889
75 972,253,889 : 53^2*89*3889
76 997253989: 53^2*89*3989
76 997,253,989 : 53^2*89*3989
77 1005371999: 53^2*71^3
77 1,005,371,999 : 53^2*71^3
78 1011819919: 11*101*919*991
78 1,011,819,919 : 11*101*919*991
79 1019457337: 37^2*73*101^2
79 1,019,457,337 : 37^2*73*101^2
80 1029761609: 29^2*761*1609
80 1,029,761,609 : 29^2*761*1609
81 1031176157: 11^2*17*31*103*157
81 1,031,176,157 : 11^2*17*31*103*157
82 1109183317: 11*31^2*317*331
82 1,109,183,317 : 11*31^2*317*331
83 1119587711: 11^2*19^4*71
83 1,119,587,711 : 11^2*19^4*71
84 1137041971: 13^4*41*971
84 1,137,041,971 : 13^4*41*971
85 1158169331: 11*31^2*331^2
85 1,158,169,331 : 11*31^2*331^2
86 1161675547: 47^3*67*167
86 1,161,675,547 : 47^3*67*167
87 1189683737: 11^5*83*89
87 1,189,683,737 : 11^5*83*89
88 1190911909: 11*9091*11909
88 1,190,911,909 : 11*9091*11909
89 1193961571: 11^3*571*1571
89 1,193,961,571 : 11^3*571*1571
90 1274418211: 11*41^5
90 1,274,418,211 : 11*41^5
91 1311979279: 13^2*19*131*3119
91 1,311,979,279 : 13^2*19*131*3119
92 1316779217: 13^2*17*677^2
92 1,316,779,217 : 13^2*17*677^2
93 1334717327: 47*73^4
93 1,334,717,327 : 47*73^4
94 1356431947: 13*43^2*56431
94 1,356,431,947 : 13*43^2*56431
95 1363214333: 13^3*433*1433
95 1,363,214,333 : 13^3*433*1433
96 1371981127: 11^2*19*37*127^2
96 1,371,981,127 : 11^2*19*37*127^2
97 1379703847: 47^3*97*137
97 1,379,703,847 : 47^3*97*137
98 1382331137: 11*31*37*331^2
98 1,382,331,137 : 11*31*37*331^2
99 1389214193: 41*193*419^2
99 1,389,214,193 : 41*193*419^2
100 1497392977: 97*3929^2
100 1,497,392,977 : 97*3929^2
101 1502797333: 733^2*2797
101 1,502,797,333 : 733^2*2797
102 1583717977: 17^2*71*79*977
102 1,583,717,977 : 17^2*71*79*977
103 1593519731: 59*5197^2
103 1,593,519,731 : 59*5197^2
104 1713767399: 17^6*71
104 1,713,767,399 : 17^6*71
105 1729719587: 17*19^2*29*9719
105 1,729,719,587 : 17*19^2*29*9719
106 1733793487: 79^2*379*733
106 1,733,793,487 : 79^2*379*733
107 1761789373: 17^2*37^2*61*73
107 1,761,789,373 : 17^2*37^2*61*73
108 1871688013: 13^5*71^2
108 1,871,688,013 : 13^5*71^2
109 1907307719: 71^3*73^2
109 1,907,307,719 : 71^3*73^2
110 1948441249: 1249^3
110 1,948,441,249 : 1249^3
111 1963137527: 13*31^3*37*137
111 1,963,137,527 : 13*31^3*37*137
112 1969555417: 17*41^5
112 1,969,555,417 : 17*41^5
113 1982119441: 211^4
113 1,982,119,441 : 211^4
114 1997841197: 11*97^3*199
114 1,997,841,197 : 11*97^3*199
115 2043853681: 53^2*853^2
115 2,043,853,681 : 53^2*853^2
116 2070507919: 19^2*79^2*919
116 2,070,507,919 : 19^2*79^2*919
117 2073071593: 73^5
117 2,073,071,593 : 73^5
118 2278326179: 17*83*617*2617
118 2,278,326,179 : 17*83*617*2617
119 2297126743: 29^3*97*971
119 2,297,126,743 : 29^3*97*971
120 2301131209: 13^4*23*31*113
120 2,301,131,209 : 13^4*23*31*113
121 2323519823: 19^2*23^5
121 2,323,519,823 : 19^2*23^5
122 2371392959: 13^2*29*59^2*139
122 2,371,392,959 : 13^2*29*59^2*139
123 2647985311: 31*47*53^2*647
123 2,647,985,311 : 31*47*53^2*647
124 2667165611: 11^5*16561
124 2,667,165,611 : 11^5*16561
125 2722413361: 241*3361^2
125 2,722,413,361 : 241*3361^2
126 2736047519: 19^2*47^3*73
126 2,736,047,519 : 19^2*47^3*73
127 2881415311: 31^3*311^2
127 2,881,415,311 : 31^3*311^2
128 2911317539: 13^2*31*317*1753
128 2,911,317,539 : 13^2*31*317*1753
129 2924190611: 19^3*29*61*241
129 2,924,190,611 : 19^3*29*61*241
130 3015962419: 41*419^3
130 3,015,962,419 : 41*419^3
131 3112317013: 13^2*23^2*31*1123
131 3,112,317,013 : 13^2*23^2*31*1123
132 3131733761: 13^2*17^2*37*1733
132 3,131,733,761 : 13^2*17^2*37*1733
133 3150989441: 41*509*150989
133 3,150,989,441 : 41*509*150989
134 3151811881: 31^2*1811^2
134 3,151,811,881 : 31^2*1811^2
135 3423536177: 17*23^2*617^2
135 3,423,536,177 : 17*23^2*617^2
136 3461792569: 17^2*3461^2
136 3,461,792,569 : 17^2*3461^2
137 3559281161: 281*3559^2
137 3,559,281,161 : 281*3559^2
138 3730774997: 499*997*7499
138 3,730,774,997 : 499*997*7499
139 3795321361: 13*37*53^4
139 3,795,321,361 : 13*37*53^4
140 3877179289: 71^2*877^2
140 3,877,179,289 : 71^2*877^2
141 4070131949: 13^2*19*31^2*1319
141 4,070,131,949 : 13^2*19*31^2*1319
142 4134555661: 41^2*61^2*661
142 4,134,555,661 : 41^2*61^2*661
143 4143189277: 31*41^2*43^3
143 4,143,189,277 : 31*41^2*43^3
144 4162322419: 19^5*41^2
144 4,162,322,419 : 19^5*41^2
145 4311603593: 11*43^2*59*3593
145 4,311,603,593 : 11*43^2*59*3593
146 4339091119: 11*4339*90911
146 4,339,091,119 : 11*4339*90911
147 4340365711: 11^3*571*5711
147 4,340,365,711 : 11^3*571*5711
148 4375770311: 11^4*31^2*311
148 4,375,770,311 : 11^4*31^2*311
149 4427192717: 17*19*71^2*2719
149 4,427,192,717 : 17*19*71^2*2719
150 4530018503: 503*3001^2
150 4,530,018,503 : 503*3001^2
151 4541687137: 13*37*41^3*137
151 4,541,687,137 : 13*37*41^3*137
152 4541938631: 41*419^2*631
152 4,541,938,631 : 41*419^2*631
153 4590757613: 13*613*757*761
153 4,590,757,613 : 13*613*757*761
154 4750104241: 41^6
154 4,750,104,241 : 41^6
155 4796438239: 23^3*479*823
155 4,796,438,239 : 23^3*479*823
156 4985739599: 59*8573*9857
156 4,985,739,599 : 59*8573*9857
157 5036760823: 23^3*503*823
157 5,036,760,823 : 23^3*503*823
158 5094014879: 79*401^3
158 5,094,014,879 : 79*401^3
159 5107117543: 11^4*17^3*71
159 5,107,117,543 : 11^4*17^3*71
160 5137905383: 13^2*53^2*79*137
160 5,137,905,383 : 13^2*53^2*79*137
161 5181876331: 31^5*181
161 5,181,876,331 : 31^5*181
162 5276191811: 11^5*181^2
162 5,276,191,811 : 11^5*181^2
163 5319967909: 19*53^2*99679
163 5,319,967,909 : 19*53^2*99679
164 5411964371: 11*41^2*541^2
164 5,411,964,371 : 11*41^2*541^2
165 5445241447: 41^5*47
165 5,445,241,447 : 41^5*47
166 5892813173: 13^3*17^2*9281
166 5,892,813,173 : 13^3*17^2*9281
167 6021989371: 19^3*937^2
167 6,021,989,371 : 19^3*937^2
168 6122529619: 19*29^2*619^2
168 6,122,529,619 : 19*29^2*619^2
169 6138239333: 23^3*613*823
169 6,138,239,333 : 23^3*613*823
170 6230438329: 23*29^4*383
170 6,230,438,329 : 23*29^4*383
171 6612362989: 23^4*23629
171 6,612,362,989 : 23^4*23629
172 6645125311: 11^8*31
172 6,645,125,311 : 11^8*31
173 7155432157: 43^2*157^3
173 7,155,432,157 : 43^2*157^3
174 7232294717: 17*29^2*47^2*229
174 7,232,294,717 : 17*29^2*47^2*229
175 7293289141: 29*41^4*89
175 7,293,289,141 : 29*41^4*89
176 7491092411: 11*41^4*241
176 7,491,092,411 : 11*41^4*241
177 8144543377: 433*4337^2
177 8,144,543,377 : 433*4337^2
178 8194561699: 19*4561*94561
178 8,194,561,699 : 19*4561*94561
179 8336743231: 23^4*31^3
179 8,336,743,231 : 23^4*31^3
180 8413553317: 13*17*53^2*13553
180 8,413,553,317 : 13*17*53^2*13553
181 8435454179: 17*43^3*79^2
181 8,435,454,179 : 17*43^3*79^2
182 8966127229: 29^2*127^2*661
182 8,966,127,229 : 29^2*127^2*661
183 9091190911: 11*9091*90911
183 9,091,190,911 : 11*9091*90911
184 9373076171: 37^2*937*7307
184 9,373,076,171 : 37^2*937*7307
185 9418073141: 31*41^2*180731
185 9,418,073,141 : 31*41^2*180731
186 9419992843: 19^4*41^2*43
186 9,419,992,843 : 19^4*41^2*43
187 9523894717: 17^3*23*89*947
187 9,523,894,717 : 17^3*23*89*947
188 9898707359: 59^2*89^2*359
188 9,898,707,359 : 59^2*89^2*359
runtime 539.800 s
runtime 539.800 s
</pre>
</pre>
Retrieved from "https://rosettacode.org/wiki/Composite_numbers_k_with_no_single_digit_factors_whose_factors_are_all_substrings_of_k"