Primos equidistantes
Definir la función
|
1 |
primosEquidistantes :: Integer -> [(Integer,Integer)] |
tal que primosEquidistantes k es la lista de los pares de primos cuya diferencia es k. Por ejemplo,
|
1 2 3 4 5 |
take 3 (primosEquidistantes 2) == [(3,5),(5,7),(11,13)] take 3 (primosEquidistantes 4) == [(7,11),(13,17),(19,23)] take 3 (primosEquidistantes 6) == [(23,29),(31,37),(47,53)] take 3 (primosEquidistantes 8) == [(89,97),(359,367),(389,397)] primosEquidistantes 4 !! (10^5) == (18467047,18467051) |