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

function cmmdc(m,n:longint):longint;
begin
if n = 0 then
cmmdc:=m else
cmmdc:=cmmdc(n,m mod n) ;

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.