Program Faktor ;

Var i,n,c: integer;


Begin

   Readln(c, i);
      n:=i*c;
   Repeat
     n:=n-1;
     until frac(n/c)= 0;
     writeln(n+1);


End.