open Batteries
open Printf
let () =
  let n = Scanf.scanf "%d " (fun a -> a) in

  let f i =
    let int_l = List.init i (fun i -> i + 1) in
    List.map (fun j -> if i mod j = 0 then true else false) int_l |>
    List.filter (fun tf -> tf = true) |>
    List.length 
  in

  let int_l = List.init n (fun i -> i + 1) in
  let res = 
    List.filter (fun i -> i mod 2 <> 0) int_l |>
    List.map (fun i -> f i) |>
    List.filter (fun i -> i = 8) |>
    List.length 
  in

  Printf.printf "%d\n" res
