main = do
  l <- fmap read getLine
  print $ length [ 0 | m <- [3,5..l], n <- [1,3..minimum [m,l`div`(4*m)-m]], gcd m n<2]