Finding "perfect" numbers

[AlexZ]

Macro Perfect Numbers

Code:

Copy      Help

out

int n i s

for n 2 10000
,s=1
,int si=sqrt(n)+1
,for i 2 si 2
,,if !(n%i)
,,,s+i+(n/i)
,if i*i=n
,,s+i
,if n=s
,,out n

;6
;28
;496
;8128