var f,g:text;
    a,b:longint;
    ct,ct2:longint;

function cmmdc(m,n:longint):longint;
var r:longint;
begin

repeat

begin
r:=m mod n;
m:=n;
n:=r;
end;
cmmdc:=m;
until r<=0;

end;

BEGIN
assign(f,'frac.in');
reset(f);
read(f,a,b);
close(f);
ct:=0; ct2:=0;
while ct2 < b do
begin
ct:=ct+1;
if cmmdc(ct,a) = 1 then
ct2:=ct2+1;

end;
assign(g,'frac.out');
rewrite(g);
writeln(g,ct);
close(g);
END.