Ver el código de «Ejercicio 3: Mayor factor primo de un número» - Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

'''Enunciado''': Definir la función euler3 tal que euler3(n) es el mayor factor primo de n. Por ejemplo,
:euler3(18) = 3
¿Cuál es el mayor factor primo del número 600851475143?

'''Solución:'''
 (%i12) euler3(n) := first(last(ifactors(n)))$
 (%i13) euler3(13195);
 (%o13) 29
 (%i14) euler3(600851475143);
 (%o14) 6857