var f,g:text;
    a,b,n,i,j,p,q:integer;
begin
assign(f,'gfact.in');
assign(g,'gfact.out');
rewrite(g);
reset(f);
readln(f,p,q);
close(f);
a:=1;
for i:=1 to q do a:=a*p;
for i:=1 to a do begin
    b:=1;
    for j:=1 to i do begin
        b:=b*j;
        end;
    if b mod a=0 then begin
                      write(g,i);
                      break;
                      end;
    end;
close(g);
end.