bzoj1053

不难发现，要让约数尽可能多，那么素因子越小的的指数一定越大
可能的素因数的种类也不超过10种
然后直接暴搜即可

const p:array[1..10] of longint=(2,3,5,7,11,13,17,19,23,29);
var n,ant,ans:int64;
procedure dfs(j:longint;m,s,t:int64);
  var i:longint;
  begin
    m:=m*int64(p[j]);
    if m>n then exit;
    s:=s div t*(t+1);
    if (s>ans) then
    begin
      ant:=m;
      ans:=s;
    end
    else if (s=ans) and (ant>m) then
      ant:=m;
    dfs(j,m,s,t+1);
    for i:=j+1 to 10 do
      dfs(i,m,s,1);
  end;

begin
  readln(n);
  ans:=1;
  ant:=1;
  if n>1 then dfs(1,1,1,1);
  writeln(ant);
end.