|
%I #54 Sep 21 2020 22:33:01
%S 3167,8543,14423,18191,22343,25703,28871,35999,40127,54647,73127,
%T 75407,77591,80783,82463,87071,89759,93887,105167,112103,112559,
%U 124823,127679,130367,140423,143519,149519,159431,170231,175391,175727,186647,187127
%N Inert rational primes in the intersection of all Q(sqrt(-d)) where d is a Heegner number.
%C These primes stay prime in the rings of integers of all imaginary quadratic fields with unique factorization.
%C However, none of these are prime, e.g., in Q(sqrt(2)) which indicates that there are no numbers that stay prime in all quadratic fields with unique factorization. - _Marc Beutter_, Aug 25 2020
%C Primes p such that A307836(n) = -9 with p = prime(n). - _Marc Beutter_, Aug 25 2020
%H Marc Beutter, <a href="/A309024/b309024.txt">Table of n, a(n) for n = 1..10000</a>
%t Table[If[MemberQ[JacobiSymbol[{-1, -2, -3, -7, -11, -19, -43, -67, -163}, k], 1], Unevaluated[Sequence[]], k], {k, Prime@Range@PrimePi[200000]}]
%Y Cf. A003173, A307836.
%K nonn
%O 1,1
%A _Marc Beutter_, Jul 08 2019
|
