Podimus iscrier' unu programma,
derivau de su programma amigosduos, chi cricched'e agattede solu sos numeros perfettos.
Evitamus de ddu cummentare riga a riga poite s'istruttura matematica este simile a
amigosduos. Cambiada solu sa cundizione chi este su corpu de If: solu si sa variabile de
appoggiu k risultad'uguale a su numeru j, tando j este unu numeru perfettu, e tando iscrie
j.
perfettos[iniziale_Integer,finale_Integer]:=
Module[{j=iniziale,k},
While[j<finale,
k=Apply[Plus,Divisors[j]]-j;
If[Apply[Plus,Divisors[k]]-k===j&&j===k,
Print[{j}]];
j=j+1]]
perfettos[1,10000]
{6}
{28}
{496}
{8128}
In s'intervallu numericu dae unu a deghe
mila solu battoro numeros funi perfettos. Issos funi tottusu numeros paris. Esistini
numeros perfettos disparis? Custu est s'indovinzu. Ma ddu hana peleau meda matematicos
senza nd'ogare pese. Finas sos numeros amigos ponen chistiones difficiles a tenner
risposta: po esempiu tottus sas coppias de numeros amigos funi fattas o de numeros
solu paris o de numeros solu disparis: esistini coppias de paridade opposta? O finzas
cantas funi sas coppias de numeros amigos? Si non tenen fine ogae a pizu una
dimostrazione.
Apply[Plus,Divisors[496]]-496
496
Apply[Plus,Divisors[8128]]-8128
8128
Amus provau chi
battorochentosnorantasese e ottomilaechentubintotto funi duos numeros perfettos.
