Numbers whose binary and ternary digit sums are prime: Difference between revisions
Numbers whose binary and ternary digit sums are prime (view source)
Revision as of 21:28, 6 April 2021
, 3 years ago→{{header|Raku}}: Add a Raku example
(Added Algol 68) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
||
Line 174:
61 numbers found: {5,6,7,10,11,"...",181,185,191,193,199}
</pre>
=={{header|Raku}}==
<lang perl6>say (^200).grep(-> $n {all (2,3).map({$n.base($_).comb.sum.is-prime}) }).batch(10)».fmt('%3d').join: "\n";</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|Ring}}==
| |||