import Control.Applicative ((<$>), (<*>))
import Data.List (sort, subsequences)

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Int
solve a = subtract 2 . length . takeWhile (<=a) . sort $ (*) <$> fps <*> ts
  where fps =  (map product . subsequences) [3, 5, 17, 257, 65537]
        ts = map (2^) [0..29]