program xz;
var i,c,min,d,k:integer;
begin
 readln(c,i);
 k:=c*i+1;
 d:=0;
 min:=10000;
 while k div c+d>=i do
 begin
  dec(k);
  if k mod c>0 then d:=1 else d:=0;
  if k div c+d=i then if k<min then min:=k;
 end;
 writeln(min);
end.