Self numbers: Difference between revisions
Content added Content deleted
| Line 1,291: | Line 1,291: | ||
self[n_] := NoneTrue [Range[ming[n], n - 1], sum[#] == n &] |
self[n_] := NoneTrue [Range[ming[n], n - 1], sum[#] == n &] |
||
Module[{t = |
Module[{t = 1, x = 1}, |
||
Reap[ |
Reap[ |
||
While[t <= 50, |
While[t <= 50, |
||
| Line 1,299: | Line 1,299: | ||
{{out}} |
{{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 |
<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}</pre> |
||
=={{header|Nim}}== |
=={{header|Nim}}== |
||