RosettaCodeData/Task/Fractran/Mathematica/fractran-3.math

2 lines
57 B
Plaintext

Select[IntegerQ] @ Log2[fractran[$PRIMEGAME, 2, 500000]]