Ratio of non primes naturals <100 that only have primary divisors

tomer-numbers.clj

;; https://twitter.com/sartanbegavhaum/status/1066051737650429952

(defn non-trivial-factors [n]
  (filter #(zero? (mod n %)) (range 2 n)))

(def prime? (comp empty? non-trivial-factors))

(defn tomer-number? [n]
  (when-let [facts (seq (non-trivial-factors n))]
    (every? prime? facts)))

(/ (count (filter tomer-number? (range 2 100)))
   (count (remove prime? (range 2 100))))
;; => 34/73