import Control.Applicative

import Data.List
    (intercalate)

type Problem = [Int]

type Result = [Int]

slice :: Int -> Int

slice 0
    = 1
    
slice n
    = n + slice (n - 1)
    
solve :: Problem -> Result

solve list
    = map slice list
    
main :: IO ()

main
    = do
        list <- map read <$> lines <$> getContents
        putStrLn $ intercalate "\n" $ map show $ solve list