import Control.Applicative
import Control.Monad
import Data.List
import Data.Array

main = do
  [k, x] <- map (read::String -> Int) . words <$> getLine
  let left = max (-1000000) (x - k + 1)
      right = min 1000000 (x + k - 1)
  putStrLn . foldl1 (\acc i -> acc ++ " " ++ i) $ map show [left..right]
  
  