bzoj1053

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

 const p:array[..] of longint=(,,,,,,,,,);
 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+);
     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+);
     for i:=j+ to  do
       dfs(i,m,s,);
   end;

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