map{$s=-//;$_=$_%2?$_*6+2:$_/4+.9|0while++$s<50*~-$_;print~-$_?Infinity:$s,", $'
"}1..$$