Sum of square and cube digits of an integer are primes: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: typo) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 51: | Line 51: | ||
{{out}} |
{{out}} |
||
<pre>16 17 25 28 34 37 47 52 64</pre> |
<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}}== |
=={{header|AWK}}== |
||
<lang AWK> |
<lang AWK> |