var s,k:qword;
        x,y,j:longint;
begin
assign(input,'in.txt');reset(input);
assign(output,'out.txt');rewrite(output);
readln(x,y);
s:=(x-1)*(y-1);
for j:=2 to y-1 do
begin
k:=j;
while (x-1) div k>0 do
begin
s:=s-(x-1) div k;
k:=k*j;
end;
end;
writeln(s);
end.