RosettaCodeData/Task/Anti-primes/Bc/anti-primes.bc
2025-08-11 18:05:26 -07:00

18 lines
241 B
Text

define factors(n) {
auto c
for(i=1;i<=n;i++) {
if(n%i==0) c+=1
}
return c
}
max = 0
n = 1
for(c=20; c > 0;) {
if(factors(n) > max) {
print n," "
max = factors(n)
c -= 1
}
n += 1
}