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