31 lines
660 B
Text
31 lines
660 B
Text
// First 20 antiprimes.
|
|
|
|
sub count_factors(number)
|
|
local count, attempt
|
|
|
|
for attempt = 1 to number
|
|
if not mod(number, attempt) count = count + 1
|
|
next
|
|
return count
|
|
end sub
|
|
|
|
sub antiprimes$(goal)
|
|
local factors, list$, number, mostFactors, nitems
|
|
|
|
number = 1
|
|
|
|
while nitems < goal
|
|
factors = count_factors(number)
|
|
if factors > mostFactors then
|
|
list$ = list$ + ", " + str$(number)
|
|
nitems = nitems + 1
|
|
mostFactors = factors
|
|
endif
|
|
number = number + 1
|
|
wend
|
|
return list$
|
|
end sub
|
|
|
|
print "The first 20 antiprimes:"
|
|
print mid$(antiprimes$(20), 3)
|
|
print "Done."
|