Anonymous user
Self numbers: Difference between revisions
{{header|Mathematica}}
(Self numbers en FreeBASIC) |
({{header|Mathematica}}) |
||
Line 1,282:
10,000,000 102,272,662
100,000,000 1,022,727,208</pre>
=={{header|Mathematica}}==
<lang Mathematica>
sum[g_] := g + Total@IntegerDigits@g
ming[n_] := n - IntegerLength[n]*9
self[n_] := NoneTrue [Range[ming[n], n - 1], sum[#] == n &]
Module[{t = 0, x = 1},
Reap[
While[t <= 50,
If[self[x], Sow[x]; t++]; x++]
][[2, 1]]]
</lang>
{{out}}
<pre>{1,3,5,7,9,20,31,42,53,64,75,86,97,108,110,121,132,143,154,165,176,187,198,209,211,222,233,244,255,266,277,288,299,310,312,323,334,345,356,367,378,389,400,411,413,424,435,446,457,468,479}</pre>
=={{header|Nim}}==
| |||