program aaa;
uses crt;
var
   f:text;
   n,i:integer;
   t,a,s,j,m:integer;
   z,k:array[1..1000] of integer;
begin
 t:=0;
 s:=1;
 a:=1;
 assign(f,'problem.out');
 reset(f);
 read(f,n);
 read(f,m);
 close(f);
 if n>=1 then
  if m<=1000 then
   begin
     for i:=1 to n do
      begin
       k[i]:=n*s;
       s:=s+a;
      end;
   end;
   for i:=1 to n do
    begin
     if k[i] mod m=0 then
      begin
       t:=t+1;
      end;
    end;
   assign(f,'problem.out');
   rewrite(f);
   write(f,t);
   close(f);
end.