module Main (main) where

import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as C8
import Data.Bool
import Data.Maybe

main :: IO ()
main = do
  readInts >>= putStrLn . unwords . map show . solve

type Output = [Int]

solve :: [Int] -> Output
solve [k,x] = [x-(k-1) .. x+(k-1)]

-- utils
readInts :: IO [Int]
readInts = map (fst . fromJust . C8.readInt) . C8.words <$> C8.getLine