#pragma GCC target("avx")
#pragma GCC optimize("O3")
#pragma GCC optimize("unroll-loops")
#include<iostream>
#include<vector>
#include<set>
using namespace std;
using i32 = int_fast32_t;
using i64 = int_fast64_t;
#define rep(i, n) for (i32 i = 0; i < (i32)(n); i++)
#define all(a) (a).begin(),(a).end()
#define rall(a) (a).rbegin(),(a).rend()
using P = pair<i64,i64>;
constexpr i32 MOD = 1e9 + 7;
int main(){
ios::sync_with_stdio(false);
std::cin.tie(nullptr);
i64 n;
cin >> n;
vector<i32> a;
set<i32> st;
i64 mo = 1;
while(1){
    mo *= 10;
    mo += 3;
    if(st.count(mo % MOD))break;
    a.emplace_back(mo % MOD);
    st.insert(mo % MOD);
}
n %= st.size();
if(n)
cout << a[n - 1] << endl;
else
    cout << a.back() << endl;
}