var i,j,k,n,m,n1:longint;
    r:real;
function f(n:longint):real;
var i:real;
begin
 i:=1;
 while n>0 do begin i:=i*n; dec(n); end;
 f:=i;
end;

begin
 read(n,m);
 r:=0;
 for i:=2 to m do
 begin
  j:=m div i;
  if j>n then r:=r+f(j)/(f(n)*f(j-n));
  if j=n then r:=r+1;
 end;
 if r>10000 then r:=10000;
 writeln(r:0:0);
end.