main = do
  l <- getLine
  let n =read l
  print $ compute n

compute n = length
  [ ()
  | k <- [105..n]
  , len8 $ factors k
  ]

len8 [_,_,_,_,_,_,_,_] = True
len8 _ = False

factors k = [ n | n <- [1..k], k `mod` n == 0 ]