      PROGRAM piyo
      IMPLICIT NONE
      INTEGER,PARAMETER :: p = 8
      integer(p) :: n,a,b,c ,nn=10**6
      integer(p) :: t(0:10**6)
      
      read*,n
      
      do a = 1,nn
        do b = 1, nn/a
          if( a*b>10**6 )cycle
          
          t(a*b) = t(a*b) + 1
        end do
      end do
      
      print*,sum(t(1:n-1))
      
      
      
      stop
      !debugg
      
      
      
      END PROGRAM