import Data.List
fermatPrimes = [3,5,17,257,65537]
fs=map product$subsequences fermatPrimes

main=do
    n<-getLine>>=return.(read::String->Integer)
    print$sum(map (length.(takeWhile (<=n)).(iterate (*2)))fs)-2