Program HH;
var i,j,s,n : integer;
begin
  write(' nhap n '); readln(n);
 for i:=2 to n do
  begin
    s:=0;
    for j:=1 to n-1 do {Chỉ cần kiểm tra tới n/2 thì được rồi}
      begin
         if (i mod j = 0 ) then s:=s+j;
      end;
   if s=i then write(i:3);
  end;
readln;
end.