{$N+}
var f,g:text;
a,b:array[0..5000000] of longint;
l,j,k,r,d,n,m,i:longint;
function pi(j:longint):longint;
var i1:integer;
p:extended;
begin
  p:=1;
 for i1:=1 to j do
   p:=p/i1;
 for i1:=r-j+1 to r do
    p:=p*i1;
pi:=round(p);
end;
begin
assign(f,'pascal.in');
reset(f);
read(f,r,d);
close(f);
for j:=0 to r do
     begin
     a[j]:=pi(j);
     if a[j]mod d=0 then inc(l);
    end;
assign(g,'pascal.out');
rewrite(g);
writeln(g,l);
close(g);
end.