program p3_37;
uses crt;
var n,i,s,t:integer;
    c:byte;

begin
clrscr;
Write('n=');readln(n);

for i:=1 to n do begin
 t:=i;s:=0;
 repeat
  c:=t mod 10;
  s:=s+c*c*c;
  t:=t div 10;
 until t=0;
 if s=sqr(i) then write(i:5);
end;

readkey
end.