const fi='sieungto.inp';
      fo='sieungto.out';
var n:byte;
    a:longint;
function lt(n:byte): longint;
var kq,i:longint;
begin
        kq:=1;
        for i:=1 to n do kq:=kq*10;
        exit(kq);
end;
function checkprime(x:longint):boolean;
var i:longint;
begin
        if x<2 then exit(false) else
        for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false);
        exit(true);
end;
function supper(y:longint):boolean;
begin
        if y=0 then supper:=true else
        supper:=checkprime(y) and supper(y div 10);
end;
begin
        assign(input,fi);
        reset(input);
        read(n);
        close(input);
        a:=lt(n);
        repeat
                inc(a);
        until supper(a);
        assign(output,fo);
        rewrite(output);
        write(a);
        close(output);
end.

uses crt;
var i,n,m:longint; d:text;
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2; while(a>2)and(a mod i<>0)do inc(i); nt:=i=a;
end;
function snt(a:longint):boolean;
var i:longint;
   begin
       While(NT(A))Do A:=A Div 10;
       If(A<>0)Then exit(false); exit(true);
   end;
begin
clrscr;
assign(d,'sieungto.inp');reset(d);
    readln(d,n);
    If (N<1)or(n>9) then writeln('Hay nhap lai') else
        begin
           m:=1;
           for i:=1 to n-1 do m:=m*10;
           i:=m;
           repeat
              inc(i);
           until (snt(i))and(i>=m);
           writeln(i);
        end;
close(d);
readln
end.