Own digits power sum: Difference between revisions
Content added Content deleted
(Added link to related task.) |
|||
Line 834: | Line 834: | ||
912985153 |
912985153 |
||
</pre> |
</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}}== |
=={{header|Perl}}== |