program frac;
var n,aux,aux2,c,p,num:integer;
f,g:text;
begin
assign(f,'frac.in');
assign(g,'frac.out');
reset(f);
rewrite(g);
read(f,n,p);
num:=1;
while c<>p do begin
      aux:=n;
      aux2:=num;
      while aux<>aux2 do begin
            if aux>aux2 then aux:=aux-aux2
            else aux2:=aux2-aux;
      end;
      if aux=1 then c:=c+1;
      num:=num+1;
end;
write(g,num-1);
close(g);
end.