Narcissistic decimal number: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 2,791: | Line 2,791: | ||
</lang> |
</lang> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>narc[1] = 0; |
<lang Mathematica>narc[1] = 0; |
||
⚫ | |||
narc[n_] := |
|||
narc[n] = |
|||
NestWhile[# + 1 &, narc[n - 1] + 1, |
|||
⚫ | |||
narc /@ Range[25]</lang> |
narc /@ Range[25]</lang> |
||
{{out}} |
{{out}} |