homepage         

 

Perfettos

 

titulu:Perfettos

 

graficu: cussu de sa ecuatzione de bintesimu gradu:x^20-1==0

 

 

pesamus luego unu programa po agatare sos numeros perfettos.

 

custu est su programa nostru

 

 

 

ddu zerriamus a triballare

custos funi numeros perfettos

 

faimus unu piticcheddu cummentu a su risultau de sa cricca nostra.

 

 

torramus a triballu

 

finis

si cheres sighire a resonare cun  nois

wpeA.gif (10722 byte)



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.