#include using namespace std; using lint = long long; using pint = pair; using plint = pair; struct fast_ios { fast_ios(){ cin.tie(nullptr); ios::sync_with_stdio(false); cout << fixed << setprecision(20); }; } fast_ios_; #define ALL(x) (x).begin(), (x).end() #define FOR(i, begin, end) for(int i=(begin),i##_end_=(end);i=i##_begin_;i--) #define REP(i, n) FOR(i,0,n) #define IREP(i, n) IFOR(i,0,n) template void ndarray(vector &vec, int len) { vec.resize(len); } template void ndarray(vector &vec, int len, Args... args) { vec.resize(len); for (auto &v : vec) ndarray(v, args...); } template void ndfill(V &x, const T &val) { x = val; } template void ndfill(vector &vec, const T &val) { for (auto &v : vec) ndfill(v, val); } template bool chmax(T &m, const T q) { if (m < q) {m = q; return true;} else return false; } template bool chmin(T &m, const T q) { if (m > q) {m = q; return true;} else return false; } template pair operator+(const pair &l, const pair &r) { return make_pair(l.first + r.first, l.second + r.second); } template pair operator-(const pair &l, const pair &r) { return make_pair(l.first - r.first, l.second - r.second); } template vector srtunq(vector vec) { sort(vec.begin(), vec.end()), vec.erase(unique(vec.begin(), vec.end()), vec.end()); return vec; } template istream &operator>>(istream &is, vector &vec) { for (auto &v : vec) is >> v; return is; } template ostream &operator<<(ostream &os, const vector &vec) { os << "["; for (auto v : vec) os << v << ","; os << "]"; return os; } template ostream &operator<<(ostream &os, const deque &vec) { os << "deq["; for (auto v : vec) os << v << ","; os << "]"; return os; } template ostream &operator<<(ostream &os, const set &vec) { os << "{"; for (auto v : vec) os << v << ","; os << "}"; return os; } template ostream &operator<<(ostream &os, const unordered_set &vec) { os << "{"; for (auto v : vec) os << v << ","; os << "}"; return os; } template ostream &operator<<(ostream &os, const multiset &vec) { os << "{"; for (auto v : vec) os << v << ","; os << "}"; return os; } template ostream &operator<<(ostream &os, const unordered_multiset &vec) { os << "{"; for (auto v : vec) os << v << ","; os << "}"; return os; } template ostream &operator<<(ostream &os, const pair &pa) { os << "(" << pa.first << "," << pa.second << ")"; return os; } template ostream &operator<<(ostream &os, const map &mp) { os << "{"; for (auto v : mp) os << v.first << "=>" << v.second << ","; os << "}"; return os; } template ostream &operator<<(ostream &os, const unordered_map &mp) { os << "{"; for (auto v : mp) os << v.first << "=>" << v.second << ","; os << "}"; return os; } #define dbg(x) cerr << #x << " = " << (x) << " (L" << __LINE__ << ") " << __FILE__ << endl; constexpr int M = 5; constexpr int D = 30; vector f(lint x) { vector ret; while (x) { lint m = x % M; if (m >= 3) m -= 5; ret.emplace_back(m); x /= M; if (m < 0) x++; } return ret; } int main() { lint N; cin >> N; vector dpi(2 * D + 1, 0LL); // 未だにゼロ vector dp0 = dpi; // 上界 vector dp1 = dpi; dpi[D] = 1; vector ds = f(N); reverse(ds.begin(), ds.end()); bool leading_d = true; for (auto e : ds) { vector dpnxtinit(dpi.size(), 0LL); vector dpnxt0 = dpnxtinit; vector dpnxt1 = dpnxtinit; for (int a : {-2, -1, 0, 1, 2}) { REP(add, dpnxtinit.size()) { int adnx = add + a; if (adnx < 0 or adnx >= dpnxtinit.size()) continue; dpnxt1[adnx] += dp1[add] + (a > 0) * (!leading_d) * dpi[add]; if (a == 0) dpnxtinit[add] += dpi[add]; if (a < e) { dpnxt1[adnx] += dp0[add] + (a > 0) * leading_d * dpi[add]; } if (a == e) { dpnxt0[adnx] += dp0[add] + (a > 0) * leading_d * dpi[add]; } } } dpi = dpnxtinit, dp0 = dpnxt0, dp1 = dpnxt1; leading_d = false; } cout << dp0[D] + dp1[D] << '\n'; }