Self numbers: Difference between revisions

({{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
Anonymous user