24 lines
441 B
Text
24 lines
441 B
Text
_limit = 500000
|
|
|
|
void local fn ErdosNicolasNumbers
|
|
long i, j, sum( _limit ), count( _limit )
|
|
|
|
for i = 0 to _limit
|
|
sum(i) = 1
|
|
count(i) = 1
|
|
next
|
|
|
|
for i = 2 to _limit
|
|
j = i + i
|
|
while ( j <= _limit )
|
|
if sum(j) == j then printf @"%8ld == sum of its first %3ld divisors", j, count(j)
|
|
sum(j) = sum(j) + i
|
|
count(j) = count(j) + 1
|
|
j = j + i
|
|
wend
|
|
next
|
|
end fn
|
|
|
|
fn ErdosNicolasNumbers
|
|
|
|
HandleEvents
|