import System.IO (isEOF)

main = do
    quit <- isEOF
    if quit then return () else do
        d <- readLn
        print $ calc d
        main

calc :: Int -> Int
calc d = sum [x*x*d | x<-[d,d+d..600-d]]