
import Data.List

showList' :: [Int] -> String
showList' ints = unwords $ map show ints

main = do
  ints <- map read . words <$> getLine :: IO [Int]
  let k = head ints
  let x = last ints
  putStrLn $ showList' [x-k+1..x+k-1]

