var
t,g,h,j,k,l,i,n,m:longint;
f:text;

BEGIN
assign(f,'input.txt');
reset(f);
readln(f,n,m);
close(f);
if m>n then begin t:=n;n:=m;m:=t;end;
i:=1;j:=1;l:=0;k:=0;
if n<>m then l:=1;
while i*j<=2*m+l do
        begin
        j:=i;
        while i*j<=2*m+l do j:=j+1;
        k:=k+j-i;
        j:=i;
        i:=i+1;
        end;
assign(f,'output.txt');
rewrite(f);
writeln(f,k);
close(f);
END.