import           System.IO
import           Control.Monad

sosus []       = []
sosus (n : ns) = n : sosus (filter (\l -> mod l n /= 0) ns)

main = do
  n <- readLn
  print $ length $ sosus [2 .. n]
  eof <- isEOF
  unless eof main

