Anonymous user
Fractran: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 2,638:
152, 92, 380, 230, 950, 575, 2375, 9625, 11375, 2125}</pre>
Extract the first 20 prime numbers encoded as powers of 2
<lang Mathematica>
Select[IntegerQ] @ Log2[fractran[$PRIMEGAME, 2,
</lang>
{{out}}
<pre>{1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67}</pre>
=={{header|Nim}}==
| |||