import Control.Monad (mapM_)
import Data.List (sort)

solve :: Integer -> [Integer]
solve n = sort [2^x * 5^y | x <- [0..n], y <- [0..n]]

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