Merge pull request #6378 from habere-et-dispertire/patch-1

[Raku] Abundant Numbers

1 files changed, 16 insertions, 0 deletions

diff --git a/challenge-171/habere-et-dispetire/raku/ch-1.raku b/challenge-171/habere-et-dispetire/raku/ch-1.raku
new file mode 100644
index 0000000000..f4331bab67
--- /dev/null
+++ b/challenge-171/habere-et-dispetire/raku/ch-1.raku
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+# Abundant Numbers
+
+use Prime::Factor;
+
+sub is-abundant ( $n ) {
+
+    proper-divisors( $n ).sum > $n
+
+}
+
+(1 .. ∞)
+    .grep( &is-abundant ) # https://oeis.org/A005101
+    .head(           20 )
+    .put