1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-169/habere-et-dispetire/raku/ch-2.raku b/challenge-169/habere-et-dispetire/raku/ch-2.raku
new file mode 100644
index 0000000000..b387e3905f
--- /dev/null
+++ b/challenge-169/habere-et-dispetire/raku/ch-2.raku
@@ -0,0 +1,18 @@
+#! /usr/bin/env raku
+
+# Achilles numbers
+
+use Prime::Factor;
+
+sub is-achilles ($n) {
+
+                2 ≤ .min and
+                1 == [gcd] $_
+    given @(values bag prime-factors $n)
+
+}
+
+say (2 .. ∞)
+    # https://oeis.org/A052486
+    .grep(&is-achilles)
+    .head(20)