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