Smallest power of 6 whose decimal expansion contains n: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Applied Hlint, Ormolu) |
Catskill549 (talk | contribs) (added AWK) |
||
Line 85: | Line 85: | ||
20: 6^26 170 581 728 179 578 208 256 |
20: 6^26 170 581 728 179 578 208 256 |
||
21: 6^3 216 |
21: 6^3 216 |
||
</pre> |
|||
=={{header|AWK}}== |
|||
<lang AWK> |
|||
# syntax: GAWK -f SMALLEST_POWER_OF_6_WHOSE_DECIMAL_EXPANSION_CONTAINS_N.AWK |
|||
BEGIN { |
|||
printf(" n power %30s\n","smallest power of 6") |
|||
for (n=0; n<22; n++) { |
|||
p = 1 |
|||
power = 0 |
|||
while (p !~ n) { |
|||
p *= 6 |
|||
power++ |
|||
} |
|||
printf("%2d %5d %'30d\n",n,power,p) |
|||
} |
|||
exit(0) |
|||
} |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
n power smallest power of 6 |
|||
0 9 10,077,696 |
|||
1 0 1 |
|||
2 3 216 |
|||
3 2 36 |
|||
4 6 46,656 |
|||
5 6 46,656 |
|||
6 1 6 |
|||
7 5 7,776 |
|||
8 12 2,176,782,336 |
|||
9 4 1,296 |
|||
10 9 10,077,696 |
|||
11 16 2,821,109,907,456 |
|||
12 4 1,296 |
|||
13 13 13,060,694,016 |
|||
14 28 6,140,942,214,464,815,497,216 |
|||
15 18 101,559,956,668,416 |
|||
16 3 216 |
|||
17 10 60,466,176 |
|||
18 15 470,184,984,576 |
|||
19 21 21,936,950,640,377,856 |
|||
20 26 170,581,728,179,578,208,256 |
|||
21 3 216 |
|||
</pre> |
</pre> |
||