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)
