Own digits power sum: Difference between revisions
→{{header|Perl}}
(Added link to related task.) |
|||
Line 834:
912985153
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>cf = Compile[{{n, _Integer}}, Module[{digs, len},
digs = IntegerDigits[n];
len = Length[digs];
Total[digs^len] == n
], CompilationTarget -> "C"];
Select[Range[100, 100000000 - 1], cf]</lang>
{{out}}
<pre>{153, 370, 371, 407, 1634, 8208, 9474, 54748, 92727, 93084, 548834, 1741725, 4210818, 9800817, 9926315, 24678050, 24678051, 88593477}</pre>
=={{header|Perl}}==
| |||