Calmo numbers: Difference between revisions

=={{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>