main = do
    week <- readLn
    print $ debt initDebt week

initDebt = 100000

debt :: Int -> Int -> Int
debt sum 0    = sum
debt sum week = debt sum' (week - 1)
    where sum' = (*1000).ceiling.(/1000) $ (fromIntegral sum)*1.05