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