Self numbers: Difference between revisions
Content added Content deleted
(Self numbers en FreeBASIC) |
({{header|Mathematica}}) |
||
| Line 1,282: | Line 1,282: | ||
10,000,000 102,272,662 |
10,000,000 102,272,662 |
||
100,000,000 1,022,727,208</pre> |
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}}== |
=={{header|Nim}}== |
||