program triunghiul_lui_pascal;
type mat=array[1..10,1..10] of integer;
var m:mat;
    r,d:integer;
    f,g:text;
procedure triunghi;
var i,j,nr:integer;
begin
 for i:=1 to r do m[i,1]:=1;
 for i:=2 to r do m[i,2]:=i-1;

 for i:=3 to r do
  for j:=3 to i do m[i,j]:=m[i-1,j-1]+m[i-1,j];
 nr:=0;
 for j:=1 to r do
  if(m[r,j] div d=0)then nr:=nr+1;
 write(g,nr);
end;

begin
assign(f,'pascal.in');reset(f);
assign(g,'pascal.out');rewrite(g);
readln(f,r,d);
r:=r+1;
triunghi;
close(f);
close(g);
end.