Program c;
var
 n,m,i:word;
 k:byte;
f:text;
begin
assign(f,'problem.in');
reset(f);
readln(f,n,m);
close(f);
write('n=');readln(n);
write('m=');readln(m);
 k:=0;
for i:=1 to m-1 do
  if (n mod m)=0 then
    begin
     if (n mod i)=0 then
     k:=k+1
    end;
write('k=',k);

assign(f,'problem.out');
rewrite(f);
write(f,k);
close(f);
end.