g=lambda k:1/k+any(k%i==0<g(k/i)for i in F)
F=2,3;k=0;n=input()
while n:F+=F[k]+F[-1],;k+=1;n-=g(k)
print k
Zz1sYW1iZGEgazoxL2srYW55KGslaT09MDxnKGsvaSlmb3IgaSBpbiBGKQpGPTIsMztrPTA7bj1pbnB1dCgpCndoaWxlIG46Ris9RltrXStGWy0xXSw7ays9MTtuLT1nKGspCnByaW50IGs=