main :: IO()
main = do
    n <- readLn
    print $ getsolve 1 n
    
getsolve :: Int -> Int -> Int
getsolve n maxn
    | n > maxn			= 0
    | mod maxn n == 0	= 1 + getsolve (n+1) maxn
    | otherwise			= getsolve (n+1) maxn