Cullen and Woodall numbers: Difference between revisions
Added Arturo implementation
m (Rust - replace to_string_radix by to_string) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 101:
Index of the 1st 12 Woodall primes: 2 3 6 30 75 81 115 123 249 362 384 462
</pre>
=={{header|Arturo}}==
<lang rebol>cullen: function [n]->
inc n * 2^n
woodall: function [n]->
dec n * 2^n
print ["First 20 cullen numbers:" join.with:" " to [:string] map 1..20 => cullen]
print ["First 20 woodall numbers:" join.with:" " to [:string] map 1..20 => woodall]</lang>
{{out}}
<pre>First 20 cullen numbers: 3 9 25 65 161 385 897 2049 4609 10241 22529 49153 106497 229377 491521 1048577 2228225 4718593 9961473 20971521
First 20 woodall numbers: 1 7 23 63 159 383 895 2047 4607 10239 22527 49151 106495 229375 491519 1048575 2228223 4718591 9961471 20971519</pre>
=={{header|AWK}}==
<lang AWK>
| |||