debt :: Int -> Int
debt 0 = 100000
debt n = let res = truncate (1.05 * (realToFrac (debt (n-1))))
         in let resMod = (res `mod` 1000);
            in if resMod == 0 then res
            else res - resMod + 1000
main = getLine >>= putStrLn . show . debt . read