var l,r,i,ans:longint;
function gcd(x,y:qword):qword;
begin
 if y=0 then gcd:=x
 else gcd:=gcd(y,x mod y);
end;
begin
 readln(l,r);
 ans:=1;
 for i:=l to r do
   ans:=ans div gcd(ans,i)*i ;
 writeln(ans);
close(input);
close(output);
end.