Smallest power of 6 whose decimal expansion contains n: Difference between revisions
Smallest power of 6 whose decimal expansion contains n (view source)
Revision as of 03:28, 9 April 2021
, 3 years agoAdded Perl
(→{{header|Phix}}: added 10m evidence) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 251:
21 6^ 3 216
max pot :28</pre>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
use List::Util 'first';
use Math::AnyNum ':overload';
sub comma { reverse ((reverse shift) =~ s/(.{3})/$1,/gr) =~ s/^,//r }
for my $n (0..21, 314159) {
my $e = first { 6**$_ =~ /$n/ } 0..1000;
printf "%7d: 6^%-3s %s\n", $n, $e, comma 6**$e;
}</lang>
{{out}}
<pre> 0: 6^9 10,077,696
1: 6^0 1
2: 6^3 216
3: 6^2 36
4: 6^6 46,656
5: 6^6 46,656
6: 6^1 6
7: 6^5 7,776
8: 6^12 2,176,782,336
9: 6^4 1,296
10: 6^9 10,077,696
11: 6^16 2,821,109,907,456
12: 6^4 1,296
13: 6^13 13,060,694,016
14: 6^28 6,140,942,214,464,815,497,216
15: 6^18 101,559,956,668,416
16: 6^3 216
17: 6^10 60,466,176
18: 6^15 470,184,984,576
19: 6^21 21,936,950,640,377,856
20: 6^26 170,581,728,179,578,208,256
21: 6^3 216
314159: 6^494 2,551,042,473,957,557,281,758,472,595,966,885,638,262,058,644,568,332,160,010,313,393,465,384,231,415,969,801,503,269,402,221,368,959,426,761,447,049,526,922,498,341,120,174,041,236,629,812,681,424,262,988,020,546,286,492,213,224,906,594,147,652,459,693,833,191,626,748,973,370,777,591,205,509,673,825,541,899,874,436,305,798,094,943,728,762,682,333,192,202,041,960,669,401,031,964,634,164,426,985,990,195,192,836,400,994,016,666,910,919,499,884,972,133,471,176,804,190,463,444,807,178,864,658,551,422,631,018,496</pre>
=={{header|Phix}}==
| |||