uses crt;
var M :array [2..100] of boolean;
procedure DatSo;
var i:integer;
begin
for i:=4 to 100 do
begin
if i mod 2 =0 then m[i]:=false;
if i mod 3 =0 then m[i]:=false;
if i mod 5 =0 then m[i]:=false;
if i mod 7 =0 then m[i]:=false;
end;
end;
procedure PrintResult;
var i:integer;
Begin
for i:=2 to 100 do
begin
if m[i] then write(i:2);
end;
end;
BEGIN
fillchar(m,sizeof(m),true);
DatSo;
m[2]:=true;m[3]:=true;m[5]:=true;m[7]:=true;
PrintResult;
readln
END.