Data commit

Task/Anti-primes/Maple/anti-primes.maple

@@ -0,0 +1,16 @@
+antiprimes := proc(n)
+local ap, i, max_divisors, num_divisors;
+max_divisors := 0;
+ap := [];
+
+for i from 1 while numelems(ap) < n do
+    num_divisors := numelems(NumberTheory:-Divisors(i));
+    if num_divisors > max_divisors then
+       ap := [op(ap), i];
+       max_divisors := num_divisors;
+    end if;
+end do;
+
+return ap;
+end proc:
+antiprimes(20);