var
    n, k, sum, i, t, ct:longint;
begin
 
   readln(n,k);
 
    sum := 0;
    ct := 0;
    for i := 1  to k do 
        sum := sum + i;
    t := trunc(sqrt(sum));
    if t * t = sum then
        inc(ct);
    for i := 2  to  n - k + 1 do
    begin
        sum := sum+ k;
        t := trunc(sqrt(sum));
        if t * t = sum then
            inc(ct);
    end;
     writeln(ct);
end.


/**************************************************************
	Problem: 1560
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/