for i=1to 999n=i
a=0
while(mod(7,n))n=int((mod(n,2)*n*23+n+2)/4)
a=a+1wend
if n=7?"Infinity";
if n=1?a;
?", ",i
next