program p52;
type matrice=array[0..1000,0..1000] of real;
var f,g:text;
m:matrice;
r,d,l,i,j:longint;
BEGIN
assign(f,'pascal.in');
assign(g,'pascal.out');
reset(f);
rewrite(g);
read(f,r,d);
inc(r);
l:=0;
for j:=1 to 1000 do
m[j,1]:=1;
for i:=1 to 1000 do
m[i,i]:=1;
for i:=1 to 1000 do  begin
for j:=2 to i-1 do
m[i,j]:=m[i-1,j]+m[i-1,j-1]; end;
for j:=1 to r do
if frac( m[r,j]/d)=0 then inc(l);
write(l);
END.