RosettaCodeData/Task/Fractran/Mathematica/fractran-3.math
2023-07-01 13:44:08 -04:00

1 line
57 B
Text

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