import Data.Char
main :: IO ()
main = do
    k <- readLn
    mapM_ print $ solve k

sn :: Int -> Int
sn = sum . map digitToInt . show

nDivSn :: Int -> Float
nDivSn n = (fromIntegral n) / (fromIntegral (sn n))

solve :: Int -> [Int]
solve k = take k $ sunuke 0 1

sunuke n diff
    | xf < yf   = x : (sunuke x diff)
    | otherwise = y : (sunuke y (diff*10))
        where x = n + diff
              y = n + diff*10
              xf = nDivSn x
              yf = nDivSn y
