Smallest numbers: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 222: | Line 222: | ||
17 16 19 9 8 13 7 17 4 17 3 11 18 13 5 23 17 |
17 16 19 9 8 13 7 17 4 17 3 11 18 13 5 23 17 |
||
18 7 17 15 9 18 16 17 9 7 12 28 6 23 9 24 23 |
18 7 17 15 9 18 16 17 9 7 12 28 6 23 9 24 23 |
||
</pre> |
|||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[FindSmallestk] |
|||
FindSmallestk[n_Integer] := Module[{digs, id, out}, |
|||
id = IntegerDigits[n]; |
|||
Do[ |
|||
digs = IntegerDigits[k^k]; |
|||
If[Length[SequenceCases[digs, id, 1]] > 0, out = k; Break[]] |
|||
, |
|||
{k, 1, \[Infinity]} |
|||
]; |
|||
out |
|||
] |
|||
Multicolumn[FindSmallestk /@ Range[0, 50], Appearance -> "Horizontal"]</lang> |
|||
{{out}} |
|||
<pre>9 1 3 5 2 4 4 |
|||
3 7 9 10 11 5 19 |
|||
22 26 8 17 16 19 9 |
|||
8 13 7 17 4 17 3 |
|||
11 18 13 5 23 17 18 |
|||
7 17 15 9 18 16 17 |
|||
9 7 12 28 6 23 9 |
|||
24 23 |
|||
</pre> |
</pre> |
||