bmigpn :: Int -> [Bool]
bmigpn = withGermainCandidates (\n -> isPrime n && isPrime (2 * n + 1))
bmigpn :: Int -> [Bool]
bmigpn = withGermainCandidates (\n -> isPrime n && isPrime (2 * n + 1))
bmigpn = withGermainCandidates (\n -> isPrime n && isPrime (2 * n + 1))