Ejercicio 1: Sumar los enteros menores de 1000 que sean múltiplos de 3 ó 5
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
Enunciado: Los números naturales menores que 10 que son múltiplos de 3 ó 5 son 3, 5, 6 y 9. La suma de estos múltiplos es 23.
Definir la función euler1 tal que euler1(n) es la suma de todos los múltiplos de 3 ó 5 menores que n. Por ejemplo,
- euler1(10) = 23
Calcular la suma de todos los múltiplos de 3 ó 5 menores que 1000.
Solución:
(%i1) euler1(n) := block([s:0],
for i:3 while i<n do
(if (mod(i,3)=0 or mod(i,5)=0) then s:s+i),
s)$
(%i2) euler1(1000);
(%o2) 233168