He actualizado las soluciones del ejercicio «Parejas de números y divisores» cuyo enunciado es

Definir la función

divisoresHasta :: Int -> [(Int,Int)]

tal que (divisoresHasta n) es la lista de los pares (a,b) tales que a es un número entre 2 y n y b es un divisor propio de a. Por ejemplo,

λ> divisoresHasta 6
[(2,1),(3,1),(4,1),(4,2),(5,1),(6,1),(6,2),(6,3)]
λ> divisoresHasta 8
[(2,1),(3,1),(4,1),(4,2),(5,1),(6,1),(6,2),(6,3),(7,1),(8,1),(8,2),(8,4)]
λ> length (divisoresHasta 1234567)
16272448

Nota: Puedes consultar las soluciones aquí.