Primos que contienen al 2016
Definir la sucesión
tal que sus elementos son los números primos que contienen al 2016. Por ejemplo,
Soluciones
Referencias
Basado en el artículo Prime numbers containing 2016 del blog Fun With Num3ers.
Definir la sucesión
1 |
primosCon2016 :: [Integer] |
tal que sus elementos son los números primos que contienen al 2016. Por ejemplo,
1 2 |
take 5 primosCon2016 == [20161,120163,120167,201611,201623] primosCon2016 !! 111 == 3020167 |
1 2 3 4 5 6 |
import Data.List (isInfixOf) import Data.Numbers.Primes (primes) primosCon2016 :: [Integer] primosCon2016 = [x | x <- primes, isInfixOf "2016" (show x)] |
Basado en el artículo Prime numbers containing 2016 del blog Fun With Num3ers.