#include<bits/stdc++.h>
using namespace std;
#define rep(i,n) for(ll i=0;i<n;i++)
#define repl(i,l,r) for(ll i=(l);i<(r);i++)
#define per(i,n) for(ll i=(n)-1;i>=0;i--)
#define perl(i,r,l) for(ll i=r-1;i>=l;i--)
#define fi first
#define se second
#define pb push_back
#define ins insert
#define pqueue(x) priority_queue<x,vector<x>,greater<x>>
#define all(x) (x).begin(),(x).end()
#define CST(x) cout<<fixed<<setprecision(x)
#define rev(x) reverse(x);
using ll=long long;
using vl=vector<ll>;
using vvl=vector<vector<ll>>;
using pl=pair<ll,ll>;
using vpl=vector<pl>;
using vvpl=vector<vpl>;
const ll MOD=1000000007;
const ll MOD9=998244353;
const int inf=1e9+10;
const ll INF=4e18;
const ll dy[8]={1,0,-1,0,1,1,-1,-1};
const ll dx[8]={0,1,0,-1,1,-1,1,-1};
template <typename T> inline bool chmax(T &a, T b) {
  return ((a < b) ? (a = b, true) : (false));
}
template <typename T> inline bool chmin(T &a, T b) {
  return ((a > b) ? (a = b, true) : (false));
}
ll calc(ll n){
  ll ans=0;
  ll prefix=0;
  string s=to_string(n);
  ll dp=0;
  ll ds=0;
  rep(i,s.size()){
   // cout << dp <<" " << ds << endl;
    ll t=s[i]-'0';
    dp=dp*10+ds*6;
    ds*=10;
    if(i){
      dp+=5;
      ds+=9;
    }
    rep(d,t){
      if(i==0&&d==0)continue;
      dp+=prefix;
      if(d==4)dp+=1;
      if(d==6)dp+=1;
      if(d==8)dp+=2;
      if(d==9)dp+=1;
      if(d==0)dp+=1;
      ds+=1;
    }
    if(t==4)prefix+=1;
    if(t==6)prefix+=1;
    if(t==8)prefix+=2;
    if(t==9)prefix+=1;
    if(t==0)prefix+=1;
  }
  //cout << dp <<" " << ds << endl;
  dp+=prefix;
  return dp;
}
int main(){
  //rep(i,110)cout << i <<" " << calc(i) << endl;return 0;
  //cout << calc(100) << endl;
  //cout << calc(INF/10) << endl;
  ll k;cin >> k;
  ll ok=INF/10,ng=0;
  while(ok-ng>1){
    ll mid=(ok+ng)/2;
    if(calc(mid)>=k)ok=mid;
    else ng=mid;
  }
  if(calc(ok)==k)cout << ok << endl;
  else cout << -1 << endl;
}