program uoc_so;
var n,k:integer;
procedure kt_ndl;
begin
Assign(f,'SAMEDIV.INP'); reset(F);
Assign(g,'SAMEDIV.OUT'); rewrite(g);
readln(f,n,k);
end;
function demuoc(m:integer):integer;
var l:integer;
begin
demuoc:=0;
for l:=1 to m do
if m mod l=0 then demuoc:=demuoc+1;
end;
procedure xuly;
var i,d:integer;
begin
d:=0;
for i:=1 to n do
if demuoc(i)=k then d:=d+1;
write(g,d);
end;
BEGIN
kt_ndl; xuly;
close(f); close(g);
END.
