Program cel;
Type vector=array[1..2000000] of boolean;
var f,g:text;
    a:vector;
    i,k,j:longint;
    stop:boolean;
Begin
Assign(f,'prim.in');Reset(f);
Assign(g,'prim.out');Rewrite(g);
Read(f,k);
For i:=2 to 1000000 do a[2*i]:=true;
i:=3;
stop:=false;
While (i<=2000000) and (not stop) do
 Begin
  If a[i]=false then Begin
                      k:=k-1;
                      If k=0 then Begin
                                   Write(g,i*i);
                                   stop:=true;
                                  end;
                      If not stop then
                       Begin
                       j:=i*i;
                       While j<=2000000 do
                        Begin
                         a[j]:=true;
                         j:=j+2*i;
                        end;
                       end;
                     end;
  inc(i,2);
 end;
Close(f);
Close(g);
end.