program main
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: n,i,j,ans=0

    read*, n
    do i=1,n-1
        j=1
        do while(j*j <= i)
            if (mod(i,j) == 0) then
                if (j == i/j) then
                    ans=ans+1
                else
                    ans=ans+2
                end if
            end if
            j=j+1
        end do
    end do
    print'(i0)', ans
end program main