RosettaCodeData/Task/Cuban-primes/Haskell/cuban-primes-2.hs
2023-07-01 13:44:08 -04:00

6 lines
106 B
Haskell

cubans :: [Int]
cubans =
[ x
| n <- [1 ..]
, let x = (succ n ^ 3) - (n ^ 3)
, isPrime x ]