import Data.List
main = do
  x <- readLn :: IO Int
  print $ f 100 0 x

f :: Int->Int->Int->Int
f n counter target = if n >target
  then counter
  else f (floor (1.01*fromIntegral n)) (counter+1) target