A297175 Rational primes that decompose in the field Q(sqrt(19)).

3, 5, 17, 31, 59, 61, 67, 71, 73, 79, 101, 103, 107, 127, 137, 149, 151, 157, 167, 179, 197, 211, 223, 227, 229, 233, 277, 307, 313, 331, 349, 353, 379, 383, 389, 397, 431, 439, 457, 461, 487, 523, 541, 547, 557, 563, 577, 593, 599, 607, 613, 617, 653

Offset

1,1

Links

Robert Price, Table of n, a(n) for n = 1..9950

Maple

Load the Maple program HH given in A296920. Then run HH(19, 200); This produces A297175, A297176, A038891, A038892.

Mathematica

Select[Prime[Range[2, 120]], KroneckerSymbol[19, #] == 1 &] (* Amiram Eldar, Dec 24 2023 *)

Crossrefs

Cf. A297176, A038891, A038892.

Sequence in context: A230639 A038898 A333353 * A089133 A103149 A007802

Adjacent sequences: A297172 A297173 A297174 * A297176 A297177 A297178

Keyword

nonn,easy

Author

N. J. A. Sloane, Dec 26 2017

Status

approved