local tgt = io.read("*n")
tgt9 = math.floor(tgt / 9)
local first = true
local cnttot = 0
for i = 0, tgt9 do
    local tmp = i
    local cnt9, val9 = 0, 0
    local mul = 9
    while(0 < tmp) do
        local a = tmp % 9
        cnt9, val9 = cnt9 + a, val9 + mul * a
        mul, tmp = mul * 9, math.floor(tmp / 9)
    end
    local rem = tgt - val9
    local cnt6, rem6 = 0, rem
    while(0 < rem6)do
        local a = rem6 % 6
        cnt6, rem6 = cnt6 + a, math.floor(rem6 / 6)
    end
    if(first) then first, cnttot = false, cnt6 + cnt9 else cnttot = math.min(cnttot, cnt6 + cnt9) end
end
print(cnttot)