program E;
var
        f:text;
        n,m,kil,temp,i:int64;
begin
        assign(f,'problem.in');
        reset(f);
        read(f,n,m);
        close(f);
        assign(f,'problem.out');
        i:=1;
        temp:=0;
        kil:=0;
        while i<n do begin
                temp:=temp+i;
                i:=i+1;
                if temp mod m=0 then kil:=kil+1;
        end;
        rewrite(f);
        write(f,kil);
        close(f);
        writeln(kil);
        readln;
end.