From dd0a009b23e29a9aaf2ae49c554e32fec0492646 Mon Sep 17 00:00:00 2001 From: habere-et-dispertire Date: Wed, 15 Jun 2022 01:26:12 +0100 Subject: Raku: Achilles numbers --- challenge-169/habere-et-dispetire/raku/ch-2.raku | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 challenge-169/habere-et-dispetire/raku/ch-2.raku 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) -- cgit