module Main where
 
import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Text.Printf
import Data.Fixed
import Debug.Trace

solve :: Int -> Int -> Int
solve now n
  | n == 0 = now
  | otherwise = solve (floor new) (pred n) where
      new = if q `mod'` 1000 == 0 then q else (q - (q `mod'` 1000)) + 1000
      q = (fromIntegral now) * 1.05

main :: IO ()
main = do
    [n] <- fmap (read :: String -> Int) . words <$> getLine
    -- let n = 10
    putStrLn $ show $ solve 100000 n