foldn :: (a -> a) -> a -> Int -> a
foldn f a n = if n == 0 then a else (foldn f (f a) (n-1))

debt :: Float -> Float
debt = (* 1000) . fromIntegral . ceiling . (* 0.00105)

main = do
    n <- readLn :: IO Int
    
    print . ceiling $ foldn debt 100000 n