Ejercicio 5: ¿Cuál es el número más divisible por cada uno de los números del 1 al 20?
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
Enunciado:Para calcular el número más pequeño divisible por cada uno de los números del 1 al 20 hacemos el mínimo común múltiplo de los siguientes dígitos: 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
La solución seria: mcm(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)=5*7*9*11*13*16*17*19= 232792560
Solución En Maxima, creamos la lista formada por los números del 1 al 20.
(%i1) L:makelist(k,k,1,20); (%o1) [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]
A continuación, usamos la aplicación apply.
(%i10) n:apply(lcm,L); (%o10) 232792560