16 lines
350 B
Text
16 lines
350 B
Text
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);
|