Name: Anonymous 2008-12-20 15:04
fibs = 1 : zipWith (+) fibs (tail fibs)
fibs = 1 : zipWith (+) fibs (tail fibs)
primes = 2:3:5:[n | n <- [7,9..], all (\p -> (mod n p) /= 0) (takeWhile (\p -> let hpf = ceiling (sqrt (fromIntegral n)) in p <= hpf) primes)]