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

yami :: Double -> Double
yami n = n * 1.05

round3 :: Double -> Double
round3 n = 1000 * (fromIntegral $ ceiling $ n / 1000)

next = round3 . yami

main = do
  n <- readLn
  print $ ceiling $ foldl (\acc -> \_ -> next acc) 100000 [1..n]

