Anonymous user
Self numbers: Difference between revisions
→{{header|Mathematica}}
({{header|Mathematica}}) |
|||
Line 1,283:
100,000,000 1,022,727,208</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>
sum[g_] := g + Total@IntegerDigits@g
|