c=[1,0,0,0,1,0,1,0,2,1]
d=[1,1,1,1,2,2,3,3,5,6]

def calc(n):
  s=str(n)
  m=len(s)
  ans=0
  for i in range(m):
    si=int(s[i])
    if si!=0:
      ans+=(d[si-1])*pow(10,m-i-1)
    if i!=m-1:
      ans+=d[9]*pow(10,m-i-2)*int(s[i])*(m-i-1)
    if i!=m-1:
      ans+=c[si]*(int(s[i+1:])+1)
    else:
      ans+=c[int(s[-1])]
  for i in range(1,m+1):
    k=min(n,pow(10,i))-pow(10,i-1)
    ans-=max(k,0)*(m-i)
  return ans-m

k=int(input())
ng,ok=10**18,0
while abs(ok-ng)>1:
  mid=(ok+ng)//2
  if calc(mid)<=k:
    ok=mid
  else:
    ng=mid

if calc(ok)==k:
  print(ok)
else:
  print(-1)