main :: IO ()
main = readLn >>= print . solve

solve :: Int -> Int
solve n = length $ filter (< n) [2 ^ x | x <- [0..32]]