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.