Ver el código de «Problema 12 del proyecto Euler» - Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

'''Enunciado: ''' La secuencia de los números del triángulo se genera mediante la adición de los números naturales. Así que el 7 º número triángulo sería de 1 + 2 + 3 + 4 + 5 + 6 + 7 = 28. Los diez primeros términos sería:

1, 3, 6, 10, 15, 21, 28, 36, 45, 55, ...

Vamos a enumerar los factores de los números triángulo siete primeros:

 1 : 1
 3 : 1,3
 6 : 1,2,3,6
10 : 1,2,5,10
15 : 1,3,5,15
21 : 1,3,7,21
28 : 1,2,4,7,14,28
Podemos ver que el 28 es el número primer triángulo de tener más de cinco divisores.

¿Cuál es el valor del número de primer triángulo de tener más de quinientos divisores?


'''Solución: '''
 (%i1) sumandos(n):=block([ac,suma],
            ac : 2,
          suma : 1,
          while length(divisors(suma))<=n do
            (suma : suma + ac,
              ac: ac + 1),
         print(suma))$

       sumandos(500);