solve :: Integer -> Integer -> Integer -> Integer
solve target ans curMoney
 | curMoney >= target = ans
 | otherwise = solve target (ans + 1) $ floor((fromIntegral curMoney) * 1.01)

main :: IO ()
main = do
 x <- read <$> getLine :: IO Int
 print $ solve x 0 100