program main
    implicit none

    integer(4) :: n
    integer(4) :: m, i, num, c

    read(*, *) n

    do c=1, n-1
        m = n-c
        i = 1
        do while (i*i<=m)
            if (mod(m, i) == 0) then
                num = num + 1
                if (m/i /= i) then
                    num = num + 1
                end if
            end if 
            i = i + 1
        end do
        
    end do

    write(*, *) num

end program main 