let () = Scanf.scanf "%d" @@ fun n ->
  Printf.printf "%d\n" @@ List.length @@
    List.filter (fun x -> ( = ) 8 @@
      List.length @@
        List.filter (fun i -> x mod i = 0) @@
          Array.to_list @@ Array.init x (( + ) 1)) @@
      List.filter (fun x -> x mod 2 = 1) @@
        Array.to_list @@ Array.init n (( + ) 1)