main :: IO ()
main = do
    n <- readLn
    putStrLn $ show (316 + n * 52)