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