import Control.Applicative
import System.IO
import Control.Monad

main = do
	n <- read <$> getLine
 	putStrLn $ show $ length $ [a+b+c | a<-[0..n],b<-[0..n-a],c<-[0..n-a-b]]
 	eof <- isEOF
 	unless eof main