let scan1 f = stdin.ReadLine() |> f

let n = scan1 int

let eight m = // m は奇数と保証されている。偶数は約数にならない
  [1..2..m]
  |> List.filter (fun k -> m % k = 0)
  |> List.length
  |> (=) 8

[1..2..n]
|> List.filter eight
|> List.length
|> printfn "%d"