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

2 lines
57 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Select[IntegerQ] @ Log2[fractran[$PRIMEGAME, 2, 500000]]