open Scanf
open Printf

let prime = [
        3;
        5;
        7;
        11;
        13;
      ]

let num = [
  3 * 5 * 7;
  3 * 5 * 11;
  3 * 5 * 13;
  3 * 7 * 11;
  3 * 7 * 13;
  3 * 11 * 13;
  5 * 7 * 11;
  5 * 7 * 13;
  7 * 11 * 13;
  3 * 3 * 3 * 5;
  3 * 3 * 3 * 7;
]

let f n = List.length @@ List.filter (fun k -> k <= n) num

let () = let ans = scanf "%d\n" f in
  printf "%d\n" ans