var n,p,nr,s:longint;
f:text;
function cmmdc(x,y:longint):boolean;
var r:longint;
begin
while y<>0 do begin
r:=x mod y;
x:=y;
y:=r;
end;
if x=1 then cmmdc:=true
       else cmmdc:=false;
end;

begin
assign(f,'frac.in');reset(f);
read(f,n,p);
close(f);
nr:=0;
s:=0;
while (nr<>p) do begin
inc(s);
if cmmdc(s,n) then inc(nr);
end;
assign(f,'frac.out');rewrite(f);
writeln(f,s);
close(f);
end.