#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_PTN_MAX		20000000								// 最大パターン数
#define D_STR_MAX		30										// 最大文字数
#define D_COMB_MAX		30										// 最大組み合わせ表数

// 内部変数
static FILE *szpFpI;											// 入力
static int siDCnt;												// 桁数
static char sc2Str[D_PTN_MAX][D_STR_MAX];						// 解答文字列[何番目]
static int siSCnt;												// 解答文字列数
static int si2Comb[D_COMB_MAX][D_COMB_MAX];						// 組み合わせ表[n][k] = nCk

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
	static int siTNo;
#endif

// 出力
int
fOut(
	char *pcpLine				// <I> １行
)
{
	char lc1Buf[1024];

#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, pcpLine)) {
		siRes = -1;
	}
#else
	printf("%s", pcpLine);
#endif

	return 0;
}

// nCk(組み合わせ表[n][k])の作成 - パスカルの三角形
int
fMakeComb(
	int piRng					// <I> 範囲
)
{
	int i, j;

	for (i = 0; i <= piRng; ++i) {
		for (j = 0; j <= i; ++j) {
			if (j == 0 || j == i) {
				si2Comb[i][j] = 1;
			}
			else {
				si2Comb[i][j] = si2Comb[i - 1][j - 1] + si2Comb[i - 1][j];
			}
		}
	}

	return 0;
}

// 解答文字列 - 作成
int
fMakeAns(
	int piNo					// <I> 位置 0～
	, int piTCnt				// <I> 3の数
	, int piFCnt				// <I> 5の数
)
{
	// 終了
	if (piNo == siDCnt) {
		if (piFCnt % 3 == 2) {
			siSCnt++;
			memcpy(sc2Str[siSCnt], sc2Str[siSCnt - 1], sizeof(sc2Str[0]));
		}

		return 0;
	}

	// 3 - セット・下位へ
	sc2Str[siSCnt][piNo] = '3';
	fMakeAns(piNo + 1, piTCnt + 1, piFCnt);

	// 5 - セット・下位へ
	sc2Str[siSCnt][piNo] = '5';
	fMakeAns(piNo + 1, piTCnt, piFCnt + 1);

	return 0;
}

// 実行メイン
int
fMain(
)
{
	char lc1Buf[1024];

	// 何番目 - 取得
	int liNo;
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &liNo);

	// nCk(組み合わせ表[n][k])の作成 - パスカルの三角形
	fMakeComb(D_COMB_MAX - 1);

	// 桁数 - セット
	siDCnt = 2;
	int liFCnt;
	while (1) {

		// パターン数 - 取得
		int liPCnt = 0;
		liFCnt = 2;
		while (1) {
			liPCnt += si2Comb[siDCnt][liFCnt];
			if (siDCnt - liFCnt < 3) {
				break;
			}
			else {
				liFCnt += 3;
			}
		}
		if (liNo <= liPCnt) {
			break;
		}
		liNo -= liPCnt;
		siDCnt++;
	}

	// 解答文字列 - 作成
	fMakeAns(0, 0, 0);

	// 最終・改行・終端文字
	sc2Str[liNo - 1][siDCnt] = '5';
	sc2Str[liNo - 1][siDCnt + 1] = '\n';
	sc2Str[liNo - 1][siDCnt + 2] = '\0';

	// 出力
	fOut(sc2Str[liNo - 1]);

	return 0;
}

// １回実行
int
fOne(
)
{
	int liRet;
	char lc1Buf[1024];

	// データ - 初期化
	siSCnt = 0;													// 解答文字列数

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", siTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", siTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// 実行メイン
	liRet = fMain();

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", siTNo);
	}
	else {
		printf("NG %d\n", siTNo);
	}
#endif

	return 0;
}

// プログラム開始
int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		siTNo = i;
		fOne();
	}
#else
	fOne();
#endif

	return 0;
}