var n,p,i,nr:int64;
    f,g:text;

 function ired(a,b:int64):boolean;
  var r:int64;
  begin
   repeat
   r:=a mod b;
   a:=b;
   b:=r;
   until r=0;
   if a=1 then ired:=true
   else ired:=false;
  end;

begin
  assign(f,'frac.in');
  assign(g,'frac.out');
  reset(f);
  rewrite(g);
  readln(f,n,p);
  nr:=1;
  i:=1;
  while nr<p do
    begin
    i:=i+1;
    if ired(i,n) then nr:=nr+1;
    end;
  write(g,i);
  close(f);
  close(g);
end.