program frac;
var n,k,p,nr:int64;
    f,g:text;

function cmmdc(a,b:int64):int64;
begin
repeat
if a>b then
begin
    a:= a mod b;
    if a= 0 then
    begin
        cmmdc:= b;
        exit;
    end;
end
else
begin
    b:= b mod a;
    if b=0 then
    begin
        cmmdc:= a;
        exit;
    end;
end;
until (a=0) or (b=0);
end;

begin
assign(f,'frac.in');
reset(f);
readln(f,n,k);
p:= 1;
repeat
if cmmdc(p,n)=1 then inc(nr);
inc(p);
until nr=k;

assign(g,'frac.out');
rewrite(g);
writeln(g,p-1);
close(g);
end.