var a:array[0..9999]of word;i,j,k:word;begin
repeat i:=i+1;j:=round(i**0.5);while i mod j>0do
j:=j-1;a[k]:=i;k:=k+1div j until k=9999;repeat
read(i);writeln(a[i])until 0>0end.