import core.bitop;
import std.algorithm;
import std.ascii;
import std.bigint;
import std.conv;
import std.functional;
import std.math;
import std.numeric;
import std.range;
import std.stdio;
import std.string;
import std.random;
import std.typecons;
import std.container;

alias sread = () => readln.chomp();
ulong bignum = 1_000_000_007;
alias SugarWater = Tuple!(long, "swater", long, "sugar");

T lread(T = long)()
{
    return readln.chomp.to!T();
}

T[] aryread(T = long)()
{
    return readln.split.to!(T[])();
}

void scan(TList...)(ref TList Args)
{
    auto line = readln.split();
    foreach (i, T; TList)
    {
        T val = line[i].to!(T);
        Args[i] = val;
    }
}

void main()
{
    auto n = lread();
    long mini = n;
    foreach (i; iota(0, n + 1))
    {
        auto rest = n - i;
        auto nine = calmoves(i, 9);
        auto six = calmoves(rest, 6);
        mini = min(nine + six, mini);
    }
    mini.writeln();
}

auto calmoves(long n, long div)
{
    auto powers = [div];
    while (powers[$ - 1] < n)
        powers ~= powers[$ - 1] * div;
    // powers.writeln();
    long moves, current = powers.length - 1;
    while (current >= 0)
    {
        auto t = n / powers[current];
        // writefln("%stimes : %s", n, t);
        moves += t;
        n -= powers[current] * t;
        current--;
    }
    return moves + n;
}