main = do
    x <- readInt <$> getLine
    print $ solve x

readInt :: String -> Int
readInt = read

solve :: Int -> Int
solve x = solveInner x 100 0
solveInner :: Int -> Int -> Int -> Int
solveInner x balance year
    | x <= balance = year
    | otherwise    = solveInner x (floor $ (realToFrac balance) * 1.01) (year + 1)