#include <iostream>
#include <vector>
#include <cstdio>
#include <sstream>
#include <map>
#include <string>
#include <algorithm>
#include <queue>
#include <cmath>
#include <set>
using namespace std;

template<class T>
ostream& operator << (ostream& os, vector<T> vec){
	for(int i=0; i<vec.size(); i++){
		os << vec[i] << " ";
	}
	return os;
}

long long sfb_cnt(string s){

	vector<vector<long long>> dp(2, vector<long long>(15, 0));
	dp[0][0] = 1;
	for(int i=0; i<s.size(); i++){
		vector<vector<long long>> dp_(2, vector<long long>(15, 0));
		for(int smaller=0; smaller<2; smaller++)
		for(int mod_15=0; mod_15<15; mod_15++)
		if(dp[smaller][mod_15]) for(int d:{3,5}){
			if(smaller == 0 && d>(s[i]-'0')) continue;
			int next_smaller = smaller || d<(s[i]-'0');
			int next_mod = (mod_15*10+d)%15;

			dp_[next_smaller][next_mod] += dp[smaller][mod_15];			
		}

		if(i>0) for(int d:{3,5}){
			dp_[1][d] += 1;
		}
		swap(dp, dp_);

	}

	return dp[0][0] + dp[1][0];
}

int main(){
	long long n;
	cin >> n;

	int len = 3;
	while(1){
		string s(len, '5');
		if(sfb_cnt(s) >= n){
			break;
		}
		len++;
	}

	//cerr << len << " " << sfb_cnt(string(len, '5')) << endl;

	auto check = [&](long long bits){
		string s(len, '3');
		for(int i=0; i<len; i++){
			if((bits>>i)&1) s[len-1-i] = '5';
		}
		long long cnt = sfb_cnt(s);
		//cerr << s << " " << cnt << endl;
		return cnt >= n;
	};

	long long lb = 0;
	long long ub = 1LL<<len;
	while(ub-lb>1){
		long long mid = (lb+ub)/2;
		bool ok = check(mid);
		(ok? ub : lb) = mid;
	}

	string s(len, '3');
	for(int i=0; i<len; i++){
		if((ub>>i)&1) s[len-1-i] = '5';
	}

	cout << s << endl;
	return 0;
}