{-# LANGUAGE Strict #-}
import qualified Data.Array.Unboxed as A


main :: IO ()
main = do
  [n, x, y] <- map read . words <$> getLine
  putStr . unlines . map show $ solve n x y

solve :: Int -> Int -> Int -> [Int]
solve n x y = A.elems xs
  where f i j = minimum [ j - i
                        , abs (x - i) + 1 + abs (y - j)
                        , abs (y - i) + 1 + abs (x - j)]
        xs = A.accumArray (+) 0 (1, n - 1) [(f i j, 1) | i <- [1 .. n - 1]
                                                     , j <- [i + 1 .. n]]
             :: A.UArray Int Int
