module Main where import qualified Data.ByteString.Char8 as BS import Data.Char import Data.String import Data.List import Data.Maybe import Data.Ord import Control.Monad main :: IO () main = do n <- fst . fromJust . BS.readInt <$> BS.getLine let r = length $ nub [ n `div` i | i <- [1 .. n] ] print r