      program CCC
!
      implicit none
      integer :: A,N,M
!
      read(*,*) N
!
      A = 0
!
      do A=1,N-1
        M = N/A + M
        if(mod(N,A) == 0) M = M-1
      end do
!
      write(*,*) M
!
      end program CCC