15 lines
297 B
Text
15 lines
297 B
Text
limite = 400000
|
|
dim DSum(limite+1) fill 1
|
|
dim DCount(limite+1) fill 1
|
|
|
|
for i = 2 to limite
|
|
j = i + i
|
|
while j <= limite
|
|
if DSum[j] = j then
|
|
print rjust(j,8); " equals the sum of its first "; rjust(DCount[j],3); " divisors"
|
|
end if
|
|
DSum[j] += i
|
|
DCount[j] += 1
|
|
j += i
|
|
end while
|
|
next i
|