combi :: Integral a => a -> a -> a
combi n m = (product [n, n - 1 .. n - m + 1]) `div` (product [1 .. m])

main :: IO ()
main = putStr . unlines . map show . map (\n -> (n + 3) `combi` 3) . map read . lines =<< getContents