program ex;
var
 f1,f2:text;
 l,u,p,d:longint;
procedure init;
 begin
  assign(f1,'divisors.in');
  assign(f2,'divisors.out');
  reset(f1);
  rewrite(f2);
  readln(f1,l,u);
  close(f1);
 end;
procedure main;
 var
  i,j,max,num,maxt,now:longint;
 begin
  max:=0;num:=0;now:=0;
  for i:=l to u do
   begin
    now:=i;
    maxt:=0;
    for j:=1 to trunc(sqrt(i)) do
        if (i mod j=0) then
         begin
          maxt:=maxt+1;
          now:=now div j;
         end;
    maxt:=maxt*2;
    if maxt>max then
      begin
       max:=maxt;
       num:=i;
      end;
   end;
  writeln(f2,'Between ',l,' and ',u,',',num,' has a maximum of ',max,' divisors.');
 end;
begin
 init;
 main;
 close(f2);
end.