withGermainCandidates :: (Integer -> a) -> Int -> [a]
withGermainCandidates f b = fmap f (take 5000 [x, x + 6 ..])
  where x = 6 * (2^b `quot` 6) + 5
withGermainCandidates :: (Integer -> a) -> Int -> [a]
withGermainCandidates f b = fmap f (take 5000 [x, x + 6 ..])
  where x = 6 * (2^b `quot` 6) + 5
withGermainCandidates f b = fmap f (take 5000 [x, x + 6 ..])
  where x = 6 * (2^b `quot` 6) + 5