import           Control.Applicative
import           Control.Monad
import           Data.List
import           Text.Printf

main :: IO ()
main = do
  n <- readLn
  print $ solve n 100000
    where
      solve::Int->Int->Int
      solve 0 money = money
      solve cur money = solve (cur-1) (money+interest)
        where
          interest = ceiling (0.05 * fromIntegral money / 1000.0) * 1000
