Primes whose sum of digits is 25: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 387:
{{output}}
<lang applescript>{997, 1699, 1789, 1879, 1987, 2689, 2797, 2887, 3499, 3697, 3769, 3877, 3967, 4597, 4759, 4957, 4993}</lang>
=={{header|Arturo}}==
<lang rebol>primes: select 1..5000 => prime?
loop split.every: 3 select primes 'p [25 = sum digits p] 'a ->
print map a => [pad to :string & 5]</lang>
{{out}}
<pre> 997 1699 1789
1879 1987 2689
2797 2887 3499
3697 3769 3877
3967 4597 4759
4957 4993</pre>
=={{header|AWK}}==
Line 426 ⟶ 442:
Prime numbers 1-5000 whose digits sum to 25: 17
</pre>
=={{header|BASIC}}==
| |||