%I #26 Dec 04 2023 01:49:43
%S 3,7,11,13,23,31,53,71,79,89,101,107,131,137,139,149,157,163,167,199,
%T 211,227,229,257,281,283,293,311,347,349,353,367,373,379,389,409,419,
%U 421,431,433,439,457,461,479,487,499,503,509,547,557,569,571,577,593,607
%N Rational primes that decompose in the field Q(sqrt(-17)).
%H Robert Price, <a href="/A296929/b296929.txt">Table of n, a(n) for n = 1..9978</a>
%H <a href="/index/Pri#primes_decomp_of">Index to sequences related to decomposition of primes in quadratic fields</a>
%F Primes == {1, 3, 7, 9, 11, 13, 21, 23, 25, 27, 31, 33, 39, 49, 53, 63} (mod 68). - _Travis Scott_, Jan 05 2023
%p Load the Maple program HH given in A296920. Then run HH(-17, 200); This produces A296929, A296930, A296931.
%o (PARI) list(lim)=my(v=List()); forprime(p=5,lim, if(kronecker(-17,p)==1, listput(v,p))); Vec(v) \\ _Charles R Greathouse IV_, Mar 18 2018
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Dec 26 2017