import Data.List
main = do
  [k,x] <- map read . words <$> getLine :: IO [Int]
  let ss = delete x $ filter (\a -> (a < 2000002) && (a > -2000002)) ([(x-(k-1))..x] ++ [x..(x+k-1)])
  putStrLn $ init $ concatMap (\a -> show a ++ " ") ss