import Control.Applicative

main :: IO ()
main = solve <$> readLn >>= print

solve :: Integer -> Integer
solve x = f 100 0
  where
    f n y
      | n >= x = y
      | otherwise = f (n * 101 `div` 100) (y + 1)
