Rosetta Code

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

Page Discussion

Composite numbers k with no single digit factors whose factors are all substrings of k (view source)

Revision as of 16:08, 21 January 2022

803 bytes added ,  2 years ago
m
→‎{{header|Free Pascal}}: added Numb2USA aka commatize
m (→‎{{header|Free Pascal}}: tested til 1E10)
m (→‎{{header|Free Pascal}}: added Numb2USA aka commatize)
Line 107:
{$ENDIF}
uses
sysutils,
strutils //Numb2USA
{$IFDEF WINDOWS},Windows{$ENDIF}
;
Line 195 ⟶ 196:
chk,p,i: NativeInt;
Begin
str(n:12,s);
result := s+Format('%15s : ',[Numb2USA(s)]);
 
with pd^ do
begin
Line 458 ⟶ 460:
<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 %
1 15317 15,317 : 17^2*53
2 59177 59,177 : 17*59^2
3 83731 83,731 : 31*37*73
4 119911 119,911 : 11^2*991
5 183347 183,347 : 47^2*83
6 192413 192,413 : 13*19^2*41
7 1819231 1,819,231 : 19*23^2*181
8 2111317 2,111,317 : 13^3*31^2
9 2237411 2,237,411 : 11^3*41^2
10 3129361 3,129,361 : 29^2*61^2
11 5526173 5,526,173 : 17*61*73^2
12 11610313 11,610,313 : 11^4*13*61
13 13436683 13,436,683 : 13^2*43^3
14 13731373 13,731,373 : 73*137*1373
15 13737841 13,737,841 : 13^5*37
16 13831103 13,831,103 : 11*13*311^2
17 15813251 15,813,251 : 251^3
18 17692313 17,692,313 : 23*769231
19 19173071 19,173,071 : 19^2*173*307
20 28118827 28,118,827 : 11^2*281*827
runtime 2.011 s
 
//@home til 1E10 .. 188 98987073599,898,707,359 : 59^2*89^2*359
21 31373137 31,373,137 : 73*137*3137
22 47458321 47,458,321 : 83^4
23 55251877 55,251,877 : 251^2*877
24 62499251 62,499,251 : 251*499^2
25 79710361 79,710,361 : 103*797*971
26 81227897 81,227,897 : 89*97^3
27 97337269 97,337,269 : 37^2*97*733
28 103192211 103,192,211 : 19^2*31*9221
29 107132311 107,132,311 : 11^2*13^4*31
30 119503483 119,503,483 : 11*19*83^3
31 119759299 119,759,299 : 11*19*29*19759
32 124251499 124,251,499 : 499^3
33 131079601 131,079,601 : 107^4
34 142153597 142,153,597 : 59^2*97*421
35 147008443 147,008,443 : 43^5
36 171197531 171,197,531 : 17^2*31*97*197
37 179717969 179,717,969 : 71*79*179^2
38 183171409 183,171,409 : 71*1409*1831
39 215797193 215,797,193 : 19*1579*7193
40 241153517 241,153,517 : 11*17*241*5351
41 248791373 248,791,373 : 73*373*9137
42 261113281 261,113,281 : 11^2*13^2*113^2
43 272433191 272,433,191 : 19*331*43319
44 277337147 277,337,147 : 71*73^2*733
45 291579719 291,579,719 : 19*1579*9719
46 312239471 312,239,471 : 31^3*47*223
47 344972429 344,972,429 : 29*3449^2
48 364181311 364,181,311 : 13^4*41*311
49 381317911 381,317,911 : 13^6*79
50 385494799 385,494,799 : 47^4*79
51 392616923 392,616,923 : 23^5*61
52 399311341 399,311,341 : 11*13^4*31*41
53 410963311 410,963,311 : 11^2*31*331^2
54 413363353 413,363,353 : 13^4*41*353
55 423564751 423,564,751 : 751^3
56 471751831 471,751,831 : 31*47^2*83^2
57 492913739 492,913,739 : 73*739*9137
58 501225163 501,225,163 : 163*251*12251
59 591331169 591,331,169 : 11*13^2*31^2*331
60 592878929 592,878,929 : 29^2*89^3
61 594391193 594,391,193 : 11*19^2*43*59^2
62 647959343 647,959,343 : 47^3*79^2
63 717528911 717,528,911 : 11^2*17^4*71
64 723104383 723,104,383 : 23^2*43*83*383
65 772253089 772,253,089 : 53^2*89*3089
66 799216219 799,216,219 : 79^3*1621
67 847253389 847,253,389 : 53^2*89*3389
68 889253557 889,253,557 : 53^2*89*3557
69 889753559 889,753,559 : 53^2*89*3559
70 892753571 892,753,571 : 53^2*89*3571
71 892961737 892,961,737 : 17^2*37^3*61
72 895253581 895,253,581 : 53^2*89*3581
73 895753583 895,753,583 : 53^2*89*3583
74 898253593 898,253,593 : 53^2*89*3593
75 972253889 972,253,889 : 53^2*89*3889
76 997253989 997,253,989 : 53^2*89*3989
77 10053719991,005,371,999 : 53^2*71^3
78 10118199191,011,819,919 : 11*101*919*991
79 10194573371,019,457,337 : 37^2*73*101^2
80 10297616091,029,761,609 : 29^2*761*1609
81 10311761571,031,176,157 : 11^2*17*31*103*157
82 11091833171,109,183,317 : 11*31^2*317*331
83 11195877111,119,587,711 : 11^2*19^4*71
84 11370419711,137,041,971 : 13^4*41*971
85 11581693311,158,169,331 : 11*31^2*331^2
86 11616755471,161,675,547 : 47^3*67*167
87 11896837371,189,683,737 : 11^5*83*89
88 11909119091,190,911,909 : 11*9091*11909
89 11939615711,193,961,571 : 11^3*571*1571
90 12744182111,274,418,211 : 11*41^5
91 13119792791,311,979,279 : 13^2*19*131*3119
92 13167792171,316,779,217 : 13^2*17*677^2
93 13347173271,334,717,327 : 47*73^4
94 13564319471,356,431,947 : 13*43^2*56431
95 13632143331,363,214,333 : 13^3*433*1433
96 13719811271,371,981,127 : 11^2*19*37*127^2
97 13797038471,379,703,847 : 47^3*97*137
98 13823311371,382,331,137 : 11*31*37*331^2
99 13892141931,389,214,193 : 41*193*419^2
100 14973929771,497,392,977 : 97*3929^2
101 15027973331,502,797,333 : 733^2*2797
102 15837179771,583,717,977 : 17^2*71*79*977
103 15935197311,593,519,731 : 59*5197^2
104 17137673991,713,767,399 : 17^6*71
105 17297195871,729,719,587 : 17*19^2*29*9719
106 17337934871,733,793,487 : 79^2*379*733
107 17617893731,761,789,373 : 17^2*37^2*61*73
108 18716880131,871,688,013 : 13^5*71^2
109 19073077191,907,307,719 : 71^3*73^2
110 19484412491,948,441,249 : 1249^3
111 19631375271,963,137,527 : 13*31^3*37*137
112 19695554171,969,555,417 : 17*41^5
113 19821194411,982,119,441 : 211^4
114 19978411971,997,841,197 : 11*97^3*199
115 20438536812,043,853,681 : 53^2*853^2
116 20705079192,070,507,919 : 19^2*79^2*919
117 20730715932,073,071,593 : 73^5
118 22783261792,278,326,179 : 17*83*617*2617
119 22971267432,297,126,743 : 29^3*97*971
120 23011312092,301,131,209 : 13^4*23*31*113
121 23235198232,323,519,823 : 19^2*23^5
122 23713929592,371,392,959 : 13^2*29*59^2*139
123 26479853112,647,985,311 : 31*47*53^2*647
124 26671656112,667,165,611 : 11^5*16561
125 27224133612,722,413,361 : 241*3361^2
126 27360475192,736,047,519 : 19^2*47^3*73
127 28814153112,881,415,311 : 31^3*311^2
128 29113175392,911,317,539 : 13^2*31*317*1753
129 29241906112,924,190,611 : 19^3*29*61*241
130 30159624193,015,962,419 : 41*419^3
131 31123170133,112,317,013 : 13^2*23^2*31*1123
132 31317337613,131,733,761 : 13^2*17^2*37*1733
133 31509894413,150,989,441 : 41*509*150989
134 31518118813,151,811,881 : 31^2*1811^2
135 34235361773,423,536,177 : 17*23^2*617^2
136 34617925693,461,792,569 : 17^2*3461^2
137 35592811613,559,281,161 : 281*3559^2
138 37307749973,730,774,997 : 499*997*7499
139 37953213613,795,321,361 : 13*37*53^4
140 38771792893,877,179,289 : 71^2*877^2
141 40701319494,070,131,949 : 13^2*19*31^2*1319
142 41345556614,134,555,661 : 41^2*61^2*661
143 41431892774,143,189,277 : 31*41^2*43^3
144 41623224194,162,322,419 : 19^5*41^2
145 43116035934,311,603,593 : 11*43^2*59*3593
146 43390911194,339,091,119 : 11*4339*90911
147 43403657114,340,365,711 : 11^3*571*5711
148 43757703114,375,770,311 : 11^4*31^2*311
149 44271927174,427,192,717 : 17*19*71^2*2719
150 45300185034,530,018,503 : 503*3001^2
151 45416871374,541,687,137 : 13*37*41^3*137
152 45419386314,541,938,631 : 41*419^2*631
153 45907576134,590,757,613 : 13*613*757*761
154 47501042414,750,104,241 : 41^6
155 47964382394,796,438,239 : 23^3*479*823
156 49857395994,985,739,599 : 59*8573*9857
157 50367608235,036,760,823 : 23^3*503*823
158 50940148795,094,014,879 : 79*401^3
159 51071175435,107,117,543 : 11^4*17^3*71
160 51379053835,137,905,383 : 13^2*53^2*79*137
161 51818763315,181,876,331 : 31^5*181
162 52761918115,276,191,811 : 11^5*181^2
163 53199679095,319,967,909 : 19*53^2*99679
164 54119643715,411,964,371 : 11*41^2*541^2
165 54452414475,445,241,447 : 41^5*47
166 58928131735,892,813,173 : 13^3*17^2*9281
167 60219893716,021,989,371 : 19^3*937^2
168 61225296196,122,529,619 : 19*29^2*619^2
169 61382393336,138,239,333 : 23^3*613*823
170 62304383296,230,438,329 : 23*29^4*383
171 66123629896,612,362,989 : 23^4*23629
172 66451253116,645,125,311 : 11^8*31
173 71554321577,155,432,157 : 43^2*157^3
174 72322947177,232,294,717 : 17*29^2*47^2*229
175 72932891417,293,289,141 : 29*41^4*89
176 74910924117,491,092,411 : 11*41^4*241
177 81445433778,144,543,377 : 433*4337^2
178 81945616998,194,561,699 : 19*4561*94561
179 83367432318,336,743,231 : 23^4*31^3
180 84135533178,413,553,317 : 13*17*53^2*13553
181 84354541798,435,454,179 : 17*43^3*79^2
182 89661272298,966,127,229 : 29^2*127^2*661
183 90911909119,091,190,911 : 11*9091*90911
184 93730761719,373,076,171 : 37^2*937*7307
185 94180731419,418,073,141 : 31*41^2*180731
186 94199928439,419,992,843 : 19^4*41^2*43
187 95238947179,523,894,717 : 17^3*23*89*947
188 98987073599,898,707,359 : 59^2*89^2*359
runtime 539.800 s
</pre>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/318994"