var a,b,c,s,d,i,j:longint;
    x:array[1..1000000,1..1000000] of boolean;
begin
  assign(input,'mins.in');
  assign(output,'mins.out');
  reset(input);
  rewrite(output);
  readln(c,d);
  for i:=1 to d-1 do
     for j:=1 to c-1 do
        if x[i,j]=false then
           begin
             inc(s);
             a:=i;
             b:=j;
             while (a<d) and (b<c) do
                begin
                  x[a,b]:=true;
                  a:=a+i;
                  b:=b+j;
                end;
           end;
  writeln(s);
  close(output);
end.