program zadasha5;
var i,s:integer; f1,f2:text; n,m,k:int64;
begin
assign(f1,'problem.txt');
reset(f1);
read(f1,n,m);
close(f1);
s:=0;
for i:=1 to n do
begin
 s:=s+i;
 if (s mod m=0) then
  k:=k+1;
end;
assign(f2,'problem1.txt');
rewrite(f2);
writeln(f2,k);
close(f2);
end.