var
n,l:longint;
functionstt(x:longint):boolean;
var
i:longint;
beginif x=1thenexit(false);
for i:=2to trunc(sqrt(x)) doif x mod i=0thenexit(false);
exit(true);
end;
procedurett(x,y:longint);var
i:longint;
beginfor i:=1to9doif stt(y*10+i) thenif x=n then writeln(y*10+i)
else tt(x+1,y*10+i);
end;
begin
readln(n);
tt(1,0);
end.