import Text.Printf
main :: IO()
main = do
  n <- fmap read getLine
  putStrLn . show $ ceiling $ (f n) * 1000

f :: Int -> Float
f n = foldl (\x y -> fromIntegral . ceiling $ x * y) 100 (replicate n 1.05)