Erdős-Nicolas numbers: Difference between revisions
Added Easylang
(Add C# implementation) |
(Added Easylang) |
||
Line 503:
91963648 equals the sum of its first 142 divisors
</pre>
=={{header|EasyLang}}==
{{trans|FreeBASIC}}
<syntaxhighlight>
limit = 2000000
for i to limit
dsum[] &= 1
dcnt[] &= 1
.
for i = 2 to limit
j = i + i
while j <= limit
if dsum[j] = j
print j & " equals the sum of its first " & dcnt[j] & " divisors"
.
dsum[j] += i
dcnt[j] += 1
j += i
.
.
</syntaxhighlight>
=={{header|FutureBasic}}==
| |||