program erasztoteneszi_szita;
const limit=10000;
var t:array [1..limit] of boolean;
    i,j:word;
begin
    for i:=1 to limit do t[i]:=true;
    i:=2;

    while i<=round(sqrt(limit)) do
    begin
     j:=2*i;
     while j<=limit do
      begin
      t[j]:=false;
      inc(j,i);
      end;
     inc(i);
     while not t[i] do
      inc(i);
    end;
    for i:=2 to limit do if t[i] then write(i:5);
    readln
end.