program NatNum;

var
 i, n, s: Integer;
 p: LongInt;

begin
 for i := 10 to 20000 do
   begin
     n := i;
     s := 0;
     while n <> 0 do
       begin
         Inc(s, n mod 10);
         n := n div 10;
       end;
     if s = 1 then Continue;
     p := s;
     while p < i do
       p := p * s;
     if p = i then Write(i, ' ');
   end;
 Writeln;
end.