calc :: Int -> Int -> Int
calc x current = if(x <= current)
                 then 0
                 else calc x (current `div` 100 + current) + 1

main = do
  x <- readLn :: IO Int
  print $ calc x 100  