import Data.Bits
import Data.List
import Control.Monad
import qualified Data.Vector.Unboxed as V
import qualified Data.Vector.Unboxed.Mutable as VM
import Control.Monad.ST
import Data.Maybe (fromMaybe)
import qualified Data.ByteString.Lazy.Char8 as B
--import Debug.Trace

printList :: (Show a) => [a] -> IO ()
printList list = do
  forM_ list $ \x -> do
    putStr (show x)
    putStr " "
  putStrLn ""

main :: IO ()
main = do
  [k,x] <- map read.words <$> getLine :: IO [Int]

  printList $ [max (x-k+1) (-1000000) .. min (x+k-1) 1000000]
