main :: IO ()
main = do
  [k, s] <- map read . words <$> getLine
  print $ numbers k s

numbers
  :: Int -> Int -> Int
numbers k s 
  = length [ (x,y,z) | x <- [0..k]
                     , y <- [0..k]
                     , z <- [0..k]
                     , x+y+z == s
                     ]