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