(defun problem03()
  "Largest prime factor of 600851475143"
  (loop for i from 3 to (sqrt 600851475143) by 2
      when (and
              (primep i)
              (zerop (mod 600851475143 i)))
      collect i into primes
      finally (return (last primes))))