program ABC
implicit none
integer::N,c,i,m,x,z

m=0
z=0

read *,N
do c=1,N-1
 x=N-c

  do i=1,x
   if ( mod(x,i) == 0 ) then
    m=m+1                    
   end if
  end do

 z=z+m
 m=0
end do

print *,z

end program ABC