program pascaltr;
var a: array[1..6000,1..6000] of longint;
i,j,k:longint;
d:byte;
c:integer;
f1,f2:textfile;
begin
assign(f1,'pascal.in');
reset(f1);
read(f1,k);
read(f1,d);
close(f1);
for i:=1 to k do begin
for j:=1 to i do begin
if i=j then a[i][j]:=1;
if j=1 then a[i][j]:=1;
end;
end;
for i:=3 to k+1 do begin
for j:=2 to i do begin
a[i][j]:=a[i-1][j]+a[i-1][j-1];
end;

end;
a[k+1][1]:=1;

for i:=1 to k do
if a[k+1][i] mod d = 0 then inc(c);
assign(f2,'pascal.out');
rewrite(f2);
write(f2,c);
close(f2);


end.