diff --git a/primefactors.clj b/primefactors.clj
new file mode 100644
index 0000000..49c5f5c
--- /dev/null
+++ b/primefactors.clj
@@ -0,0 +1,13 @@
+(defn factors [x]
+	(if (== x 1)
+		'()
+		(let [f
+			(first
+				(filter (fn [e] (zero? (mod x e)))
+					(range 2 (+ x 1))
+				)
+			)]
+			(conj (factors (/ x f)) f)
+		)
+	)
+)
\ No newline at end of file