import Control.Applicative
import System.IO
import Control.Monad
 
main = do
    n <- read <$> getLine
    putStrLn $ show $ sum $ [(a+1) * (n-a+1) | a <- [0 .. n]]
    eof <- isEOF
    unless eof main