Numbers whose binary and ternary digit sums are prime: Difference between revisions
Content added Content deleted
(Added Algol W) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
| Line 165: | Line 165: | ||
<pre>5 6 7 10 11 12 13 17 18 19 21 25 28 31 33 35 36 37 41 47 49 55 59 61 65 67 69 73 79 82 84 87 91 93 97 103 107 109 115 117 |
<pre>5 6 7 10 11 12 13 17 18 19 21 25 28 31 33 35 36 37 41 47 49 55 59 61 65 67 69 73 79 82 84 87 91 93 97 103 107 109 115 117 |
||
121 127 129 131 133 137 143 145 151 155 157 162 167 171 173 179 181 185 191 193 199</pre> |
121 127 129 131 133 137 143 145 151 155 157 162 167 171 173 179 181 185 191 193 199</pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol>loop split.every: 10 |
|||
select 1..199 'n [ and? prime? sum digits.base: 2 n |
|||
prime? sum digits.base: 3 n ] 'a -> |
|||
print map a => [pad to :string & 4]</lang> |
|||
{{out}} |
|||
<pre> 5 6 7 10 11 12 13 17 18 19 |
|||
21 25 28 31 33 35 36 37 41 47 |
|||
49 55 59 61 65 67 69 73 79 82 |
|||
84 87 91 93 97 103 107 109 115 117 |
|||
121 127 129 131 133 137 143 145 151 155 |
|||
157 162 167 171 173 179 181 185 191 193 |
|||
199</pre> |
|||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||