[Julio_fmat]

Un número entero positivo \( n \) es perfecto si la suma de sus divisores propios es igual con \( n \). Ocupando el comando Magma Divisors(), escriba un programa que entregue los primeros 4 números perfectos.

Bueno, en algún momento usamos el comando Divisors(). Por otro lado, creo que no usamos function, porque no nos piden una funcion... Pero si "IF".

[sugata]

La sentencia IF es un bucle que acaba en THEN, habitualmente en otros lenguajes.
Entonces con este bucle podemos determinar si el número es perfecto determinando IF suma de divisores =n THEN el número es cuadrado.
Esto debería ir en otro bucle que cuente los números encontrados y al llegar a 4 pare.

[Ignacio Larrosa]

Un número entero positivo \( n \) es perfecto si la suma de sus divisores propios es igual con \( n \). Ocupando el comando Magma Divisors(), escriba un programa que entregue los primeros 4 números perfectos.

Bueno, en algún momento usamos el comando Divisors(). Por otro lado, creo que no usamos function, porque no nos piden una funcion... Pero si "IF".

Con Derive, y aplicando tan solo la definición de nýumero perfecto, bastaría con

SELECT(SUM(DIVISORS(n)) = 2·n, n, 1, 10000)

para obtener \( [6, 28, 496, 8128] \).

La función DIVISORS(n) obtiene la lista de todos los divisores positivos de \( n \), incluidos \( 1\textrm{ y }n \).

En Magma debe ser similar.

Saludos,