var f:text;
    a,b,i,k,s,d:longint;

function fact(nr:longint):longint;
var p,q:longint;
begin
   p:=1;
   for q:=1 to nr do p:=p*q;
   fact:=p;
end;


begin
  assign(f,'pascal.in');
  reset(f);
  readln(f,a,b);
  close(f);

  k:=fact(a);
  d:=0;
  for i:=1 to a-1 do begin
    s:=k div (fact(a-i)*fact(i));
    if s mod b=0 then inc(d);
  end;


  assign(f,'pascal.out');
  rewrite(f);
  writeln(f,d);
  close(f);
end.