Program d;
var
 n,m,k,i,j:word;
 a:array [1..30,1..30] of word;
begin
assign(f,E:/TP70/pair.in);
reset(f);
readln(f,n);
close(f);
k:=0;
for i:=1 to n do
  for j:=1 to n do
      if (((i*j)<=n)or(i=j)) in(a[i,j]) then k:=k+1
write('n=',n);
assign(f,E:/TP70/pair.out);
rewrite(f);
write(f,k);
close(f);
readln;
end.