const cmax=1000000;
var d:array[1..cmax]of qword;
    x,y,r,i:longword;
    sol:qword;
begin
assign(input,'mins.in');reset(input);
readln(x,y);
close(input);
dec(x);dec(y);
if x>y then r:=y else r:=x;
for i:=1 to r do
 d[i]:=(x div i)*(y div i);
sol:=0;
for i:=1 to r do if odd(i) then inc(sol,d[i]) else dec(sol,d[i]);
assign(output,'mins.out');rewrite(output);
writeln(sol);
close(output);
end.