program borton;
var t:array[1..100] of boolean;
    i,j:byte;
begin
     for i:=1 to 100 do
      begin
       j:=i;
       while j<=100 do
       begin
        t[j]:=not t[j];
        inc(j,i);
       end;
      end;
     for i:=1 to 100 do
      if t[i] then write(i:5);
     readln
end.