program tokeletes;
var s,i,j,n:integer;
begin
   writeln('Meddig irassam ki a tokeletes szamokat?');
   readln(n);
   for i:=2 to n do
   begin
    s:=0;
    for j:=2 to i-1 do
     if i mod j=0 then s:=s+j;
    if s=i-1 then write(i:8);
   end;
   readln
end.