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.