Narcissistic decimal number: Difference between revisions
m
→{{header|Mathematica}}
(Added Quackery.) |
|||
Line 2,791:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>narc[1] = 0;
narc[n_] := narc[n] = NestWhile[# + 1 &, narc[n - 1] + 1, Plus @@ (IntegerDigits[#]^IntegerLength[#]) != # &];▼
▲ Plus @@ (IntegerDigits[#]^IntegerLength[#]) != # &];
narc /@ Range[25]</lang>
{{out}}
| |||