solve :: Int -> Int -> Int -> Int
solve x y z | y < x = solve x y' $ z + 1
            | otherwise = z
            where y' = floor $ fromIntegral y * 1.01

main :: IO ()
main = do
  x <- readLn
  print $ solve x 100 0
