Munchausen numbers: Difference between revisions
m
→{{header|Mathematica}}
m (Updated description and link for Fōrmulæ solution) |
|||
Line 1,623:
<pre>[1, 3435]</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Off[Power::indet];(*Supress 0^0 warnings*)
Select[Range[5000], Total[IntegerDigits[#]^IntegerDigits[#]] == # &]</lang>
|