program g;
 var N, M,i , k, s: longint; f1, f2 :text;
begin
assign (f1,'E:\School\Olimp\1egacy.in');
assign (f2,'E:\School\Olimp\1egacy.out');
reset (f1);
read (f1,N, M);
 rewrite (f2);
 s:=0;
 k:=0;
for i:=1 to N do
begin
      s:=s+i;
      if s mod M=0 then
      k:=k+1;
end;
 write (f2,k);
  close (f1);
  close (f2);
end.