var c,s,d,i,j:longint;
function cmmdc(a,b:longint):longint;
var c:longint;
begin
  while b<>0 do
     begin
       c:=a mod b;
       a:=b;
       b:=c;
     end;
  cmmdc:=a;
end;
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 cmmdc(i,j)=1 then inc(s);
  writeln(s);
  close(output);
end.