from collections.abc import Iterable


def accum_dp(xs: Iterable, f, op, e, init: dict, *, is_reset=True):
    dp = init.copy()
    for x in xs:
        pp = {} if is_reset else dp.copy()
        dp, pp = pp, dp
        for fm_key, fm_val in pp.items():
            for to_key, to_val in f(fm_key, fm_val, x):
                dp[to_key] = op(dp.get(to_key, e), to_val)

    return dp


def op(a, b):
    return a + b


def f(k, v, x):
    lz, lt, m3, c3 = k  # (leading zero, 未満か, mod, 3を含むか)

    for d in range(10):
        if not lt and d > x: break
        nlz = lz and d == 0
        nlt = lt or d < x

        nm3 = (10*m3 + d) % 3
        nc3 = c3 or d == 3
        yield (nlz, nlt, nm3, nc3), v


def digit_dp() -> int:
    digits = [int(c) for c in str(10**P)]

    init = {(True, False, 0, False): 1}
    dp = accum_dp(digits, f, op, 0, init)
    res = 0
    for (lz, _, m3, c3), v in dp.items():
        if lz: continue
        if m3 == 0 or c3:
            res += v

    return res


P = int(input())
ans = digit_dp()
print(ans)