program pascal;
var f,g:text;
    i,j,d,n,c:longint;
    v:array[0..500000,1..500000] of longint;
begin
assign(f,'pascal.in');reset(f);
assign(g,'pascal.out');rewrite(g);
read(f,n,d);
v[0,1]:=1;
v[1,1]:=1;
v[1,2]:=1;

for i:=2 to n do
  for j:=1 to i+1 do
    v[i,j]:=v[i-1,j-1]+v[i-1,j];

for i:=1 to n+1 do
  if (v[n,i] mod d=0) then c:=c+1;



write(g,c);
close(f);
close(g);
end.