Cuban primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 857: / Line 857: @@
 cubans = do
   x <- [1..]
-  let y = succ x ^ 3
+  let r = (succ x ^ 3) - (x ^ 3)
-      z = x ^ 3
-      r = y - z
   guard (isPrime r)
   pure r