$x=++$n;print($t?49-$t:Infinity).", $n ")for($t=50;~-$x*--$t;)$x=$x%2?$x*6:$x+2>>2;