Calmo numbers: Difference between revisions
added Arturo
m (Changed 'natural number' to 'positive integer'.) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 78:
165 273 385 399 561 595 665 715 957
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">calmo?: function [n][
f: (factors n) -- @[1 n]
unless zero? (size f) % 3 -> return false
every? f [x y z] -> prime? x+y+z
]
1..1000 | select => calmo?
| print</syntaxhighlight>
{{out}}
<pre>165 273 385 399 561 595 665 715 957</pre>
=={{header|BASIC}}==
|