{-# OPTIONS_GHC -O #-}
import Control.Monad
import Data.List
import Data.Array
import Data.Array.IO

solve n = do
    a6 <- newListArray (1,6) [6,36,216,1296,7776,46656] :: IO (IOArray Int Int)
    a9 <- newListArray (7,11) [9,81,729,6561,59049] :: IO (IOArray Int Int)
    --
    a <- newArray ((0,0),(n,11)) 0 :: IO (IOUArray (Int,Int) Int)
    forM_ [1..n] $ \j -> writeArray a (j,0) j
    --
    forM_ [(j,i)|i<-[1..6], j<-[0..n]] $ \(j,i) -> do
        p <- readArray a6 i
        m <- liftM minimum $ forM [k|k<-[0..5],k*p<=j] $ \k -> do
            (+k) <$> readArray a (j-k*p,i-1)
        writeArray a (j,i) m
    --
    forM_ [(j,i)|i<-[7..11], j<-[0..n]] $ \(j,i) -> do
        p <- readArray a9 i
        m <- liftM minimum $ forM [k|k<-[0..8],k*p<=j] $ \k -> do
            (+k) <$> readArray a (j-k*p,i-1)
        writeArray a (j,i) m
    --
    readArray a (n,11)

main = do
    n <- readLn :: IO Int
    print =<< solve n