for(i,1,999,n:=i;a:=0;while(7%n>0,n=if(n%2>0,6*n+2,n+2>>2);a=a+1)writeln(if(n>1,"Infinity",a),", ",i))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page