main :: IO ()
main = do
  [k,x] <- readParams
  putStrLn $ solve k x

readParams :: Read a => IO [a]
readParams = map read . words <$> getLine

solve :: Int -> Int -> String
solve = format .: range

format :: [Int] -> String
format = unwords . map show

range :: Int -> Int -> [Int]
range k x = [x-w..x+w]
  where w = k-1

infixr 8 .:
(.:) :: (c -> d) -> (a -> b -> c) -> a -> b -> d
(f .: g) x y = f $ g x y
