main = do
  li <- getLine
  let [k,x] = map read $ words li
  let ans = compute k x
  putStrLn $ unwords $ map show ans

compute :: Int -> Int -> [Int]
compute k x = [a..b]
  where
    a = max (-1000000) (x-k+1)
    b = min   1000000  (x+k-1)
