module Main where

import Control.Applicative

main :: IO ()
main = do
    n <- readLn
    let c = product [(32-n)..31] `div` product [1..n]
        s = sum [2 ^ x | x <- [0..30]] * c * n `div` 31
    putStrLn $ unwords [show c, show s]