var a:array[0..9999]of word;i,j,k:word=3;begin repeat k:=k+2;a[i]:=k;j:=3;while k mod j>0do j:=j+2;i:=i+ord(j*j>k)until i=1e4;repeat read(i);writeln(a[i])until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).