var i,j,k:comp;begin repeat i:=i+1;k:=7;for j:=2to i do k:=k*ord(i mod(j*j)>0)-ord(i mod j=0);if k=0then writeln(i)until i>761end.