|
%I #14 Dec 24 2023 01:07:58
%S 3,5,17,31,59,61,67,71,73,79,101,103,107,127,137,149,151,157,167,179,
%T 197,211,223,227,229,233,277,307,313,331,349,353,379,383,389,397,431,
%U 439,457,461,487,523,541,547,557,563,577,593,599,607,613,617,653
%N Rational primes that decompose in the field Q(sqrt(19)).
%H Robert Price, <a href="/A297175/b297175.txt">Table of n, a(n) for n = 1..9950</a>
%p Load the Maple program HH given in A296920. Then run HH(19, 200); This produces A297175, A297176, A038891, A038892.
%t Select[Prime[Range[2, 120]], KroneckerSymbol[19, #] == 1 &] (* _Amiram Eldar_, Dec 24 2023 *)
%Y Cf. A297176, A038891, A038892.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Dec 26 2017
|
