A309024 Inert rational primes in the intersection of all Q(sqrt(-d)) where d is a Heegner number.
3167, 8543, 14423, 18191, 22343, 25703, 28871, 35999, 40127, 54647, 73127, 75407, 77591, 80783, 82463, 87071, 89759, 93887, 105167, 112103, 112559, 124823, 127679, 130367, 140423, 143519, 149519, 159431, 170231, 175391, 175727, 186647, 187127
Offset: 1
Keywords
Links
- Marc Beutter, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Table[If[MemberQ[JacobiSymbol[{-1, -2, -3, -7, -11, -19, -43, -67, -163}, k], 1], Unevaluated[Sequence[]], k], {k, Prime@Range@PrimePi[200000]}]
Comments