(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (read))
         (a n))
    (loop for i from 1 to (sqrt n)
          when (zerop (mod n i))
            do (decf a)
               (when (< (* i i) n)
                     (decf a)))
    (format t "~d~%" a)))

(main)