program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var n,m,i,k,ans,j: longint;
    inp,outp: text;
begin
   assign(inp,'problem.in');
   assign(outp,'problem.out');
   reset(inp);
   rewrite(outp);
   readln(inp,n,m);
   for i:=1 to n do
      begin
         k:=0;
         for j:=1 to i do
            k:=k+j;
         if k mod m=0 then inc(ans);
      end;
   writeln(outp,ans);
   close(inp);
   close(outp);
end.