main = do
    [n,x,y] <- map read.words <$> getLine :: IO [Int]
    mapM_ putStrLn $ map (show.answer n x y) [1..(n-1)]

answer n x y 1 = n
answer n x y k = length $ filter ((==k).len) [(i,j) | i <- [1..n-1], j <- [(i+1)..n]] where
    len (i,j) = minimum [abs (j-i), routexy, routeyx] where
        routexy = abs (x-i) + 1 + abs (y-j)
        routeyx = abs (y-i) + 1 + abs (x-j)