uses crt;
var duyet:array[0..1000000000] of boolean;
    i,j,d,k:longint;
    a,x,t,temp:qword;
function Count(n:qword):word;
var d:word;
begin
    d:=0;
    while n<>0 do
       begin
           inc(d);
           n:=n div 10;
       end;
    exit(d);
end;
function nt(n:qword):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:=2 to trunc(sqrt(n)) do
       if n mod i=0 then exit(false);
    exit(true);
end;
begin
    clrscr;
    readln(k);
    fillchar(duyet,sizeof(duyet),true);
    t:=1;
    for i:=2 to trunc(sqrt(1000000)) do
      if duyet[i]=true then
         for j:=0 to 1000000 do
            duyet[sqr(i)+i*j]:=false;
    d:=0; x:=2; a:=2;
    while d<k do
       begin
           inc(x);
           while duyet[x]=false do inc(x);
           t:=1;
           for j:=1 to Count(x) do
               t:=t*10;
           temp:=a*t+x;
           if nt(temp)=true then inc(d);
           a:=x;
       end;
    writeln(temp);
readln;
end.

#Codedaodeom

uses crt;
var k,max,m,n,t,d:longint; a:array[1..120000000]of boolean;
b:array[1..10000000]of longint; s1,s2:string;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
procedure eratos;
    var
       i,j : longint;

    begin
       a[1]:=false;
       for i:=2 to max do
         a[i]:=true;
       for i:=2 to max div 2 do
         if a[i] then
           for j:=2 to max div i do
             a[i*j]:=false;
       j:=0;
       for i:=1 to max do
          if a[i] then
           begin
              inc(m);
              b[m]:=i; 
           end;
    end;
begin 
clrscr;
   readln(k);
   max:=120000;
   eratos;
   d:=1; n:=1;
   t:=23; 
   while d<k do  
      begin
         inc(n,2);
         str(b[n],s1); 
         str(b[n+1],s2);
         val(s1+s2,t);
         if nt(t) then inc(d); 
      end;
   writeln(t);
readln 
end.