type kisebb=longint;
     nagyobb=longint;
Var
  n,k,db:kisebb;
  m:nagyobb;
  be,ki:text;

Function C(n:kisebb;k:kisebb):nagyobb;
Begin
  if (k=0) or (k=n) then C:=1
    else if k=1 then C:=n
      else C:=C(n-1,k-1)+C(n-1,k);
End;
Begin
Assign(be,'chernel.in');
reset(be);
readln(be,n,m);
close(be);
Assign(ki,'chernel.out');
rewrite(ki);
db:=0;
for k:=0 to n do
 if C(n,k) mod m =0 then db:=db+1;

writeln(ki,db);
close(ki);
End.