Return to Answer

added 51 characters in body

edited May 5, 2017 at 4:23

Mathematica, 2222 19 bytes

Thanks to lanlock4 for saving 3 bytes!

#//.x_/;EvenQ@x?EvenQ:>3x/2&

Pure function that does the replacement repeatedly, one factor of 2 at a time. Works on all positive integers less than 2⁶⁵⁵³⁷.

#//.x_/;EvenQ@x:>3x/2&

Pure function that does the replacement repeatedly, one factor of 2 at a time. Works on all positive integers less than 2⁶⁵⁵³⁷.

Thanks to lanlock4 for saving 3 bytes!

#//.x_?EvenQ:>3x/2&

Pure function that does the replacement repeatedly, one factor of 2 at a time. Works on all positive integers less than 2⁶⁵⁵³⁷.

answered May 4, 2017 at 22:29

#//.x_/;EvenQ@x:>3x/2&

Pure function that does the replacement repeatedly, one factor of 2 at a time. Works on all positive integers less than 2⁶⁵⁵³⁷.