Sum of square and cube digits of an integer are primes: Difference between revisions

Added Arturo implementation
(Added Arturo implementation)
Line 51:
{{out}}
<pre>16 17 25 28 34 37 47 52 64</pre>
=={{header|Arturo}}==
 
<lang rebol>print select 1..100 'x ->
and? [prime? sum digits x^2]
[prime? sum digits x^3]</lang>
 
{{out}}
 
<pre>16 17 25 28 34 37 47 52 64</pre>
 
=={{header|AWK}}==
<lang AWK>
1,532

edits