Ruth-Aaron numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 154: | Line 154: | ||
First Ruth-Aaron triple (divisors): 89460294 |
First Ruth-Aaron triple (divisors): 89460294 |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">fRuthAaron?: function [n]-> (sum factors.prime n) = sum factors.prime n+1 |
|||
dRuthAaron?: function [n]-> (sum unique factors.prime n) = sum unique factors.prime n+1 |
|||
print "First 30 Ruth-Aaron numbers (factors):" |
|||
loop split.every: 10 select.first:30 1..∞ => fRuthAaron? 'x -> |
|||
print map x 's -> pad to :string s 5 |
|||
print "" |
|||
print "First 30 Ruth-Aaron numbers (divisors):" |
|||
loop split.every: 10 select.first:30 1..∞ => dRuthAaron? 'x -> |
|||
print map x 's -> pad to :string s 5</syntaxhighlight> |
|||
{{out}} |
|||
<pre>First 30 Ruth-Aaron numbers (factors): |
|||
5 8 15 77 125 714 948 1330 1520 1862 |
|||
2491 3248 4185 4191 5405 5560 5959 6867 8280 8463 |
|||
10647 12351 14587 16932 17080 18490 20450 24895 26642 26649 |
|||
First 30 Ruth-Aaron numbers (divisors): |
|||
5 24 49 77 104 153 369 492 714 1682 |
|||
2107 2299 2600 2783 5405 6556 6811 8855 9800 12726 |
|||
13775 18655 21183 24024 24432 24880 25839 26642 35456 40081</pre> |
|||
=={{header|C++}}== |
=={{header|C++}}== |