diff options
| -rw-r--r-- | challenge-169/habere-et-dispetire/raku/ch-2.raku | 18 |
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) |