Var n, i: integer;
Begin
Readln (n);
Repeat
i:=i+1;
if i*i*i<=n then writeln (n);
Until i*i*i>n;
End.
Var n, i: integer;
Begin
Readln (n);
Repeat
i:=i+1;
if i*i*i<=n then writeln (n);
Until i*i*i>n;
End.