import Control.Applicative
import Control.Monad
import Data.List
import Data.Ratio
import Text.Printf
import System.IO

untilEOF :: IO () -> IO ()
untilEOF x = do
  e <- isEOF
  unless e $ x >> untilEOF x

main :: IO ()
main = do
  n <- readLn
  print $ solve n

solve :: Int -> Int
solve n = applyN n f (100000)
 where
  f x = (ceiling (x * 105 % 100000)) * 1000 
   
applyN :: Int -> (a -> a) -> a -> a
applyN 0 _ x = x
applyN n f x = applyN (n-1) f (f x)

