procedure main()
every x:=n:=1to 999do{t:=50
while x*t>t&x:=(x%2*23*x+x+2)/4&t-:=1
write(50>50-t|"Infinity",", ",n)}
end