var a,b,z:word;
    pr:array[1..10000]of word;
    bool:boolean;
begin
 pr[1]:=2;pr[2]:=3;pr[3]:=5;pr[4]:=7;pr[5]:=11;z:=5;
 for a:=13to 65534do begin
  bool:=true;
  for b:=1to z do begin
   if a mod pr[b]=0then begin bool:=false;b:=z end;
   if pr[b]>a div 2then b:=z
  end;
  if bool then begin
   z:=succ(z);pr[z]:=a;
   write(a,' - ')
  end;
  a:=succ(a)
 end;
 writeln(z);
end.