           (== p q)        (recur (quot x p) p                       p r)
           :else           (recur (quot x p) p                       p (* r p))
         )))
+
+
 
 (defn naive-solution-for [c-max]
   (->> (range 3 c-max)

       (reduce +)
       ;;(count)
       ))

(ns project-euler.problem_0127
  (:require [clojure.math.combinatorics :as combo])
  (:require [clojure.set :as set])
  )

;; The radical of n, rad(n), is the product of distinct prime factors of n.
;; For example, 504 = 2^3 × 3^2 × 7, so rad(504) = 2 × 3 × 7 = 42.
