program dokondo10000;
uses Crt;
var n,i,s : integer;

begin
  clrscr;
  for n:=1 to 10000 do begin
    s:=0;
      for i:=1 to trunc(n/2) do
        if (n mod i)=0 then s:=s+i;
      if s=n then writeln(n);
  end;
  readln;
end.