Erdős-Nicolas numbers: Difference between revisions
Content added Content deleted
(Erdős-Nicolas numbers in in various dialects BASIC) |
Drkameleon (talk | contribs) (added Arturo) |
||
| Line 79: | Line 79: | ||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">erdosNicolas: function [n][ |
|||
facts: factors n |
|||
if facts > 2 [ |
|||
loop 1..(size facts)-2 'k [ |
|||
if n = sum first.n:k facts -> return @[n, k] |
|||
] |
|||
] |
|||
return ø |
|||
] |
|||
cnt: 0 |
|||
i: 2 |
|||
while [cnt < 8][ |
|||
if enNum: <= erdosNicolas i [ |
|||
print[enNum\0 "equals the sum of its first" enNum\1 "divisors"] |
|||
cnt: cnt + 1 |
|||
] |
|||
i: i + 2 |
|||
]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>24 equals the sum of its first 6 divisors |
|||
2016 equals the sum of its first 31 divisors |
|||
8190 equals the sum of its first 43 divisors |
|||
42336 equals the sum of its first 66 divisors |
|||
45864 equals the sum of its first 66 divisors |
|||
392448 equals the sum of its first 68 divisors |
|||
714240 equals the sum of its first 113 divisors |
|||
1571328 equals the sum of its first 115 divisors</pre> |
|||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
| Line 239: | Line 272: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
=={{header|C++}}== |
=={{header|C++}}== |
||