program sir;
var i,nr,a,n,m:longint;
f,g:text;
begin
  assign(f,'pascal.in'); assign(g,'pascal.out');
  reset(f); rewrite(g);
  read (f,n,m);
  a:=1;
  nr:=0;
  if m=1 then begin write (g,n); writeln(g); close(g); halt; end;
  for i:=1 to n-1 do
    begin
      a:=a*(n-i) div i;
      if a mod m=0 then nr:=nr+1;
    end;
  write (g,nr);
  writeln(g);
  close(f); close(g);
end.