%I #11 Dec 26 2017 19:34:02
%S 2,3,7,11,13,17,23,31,53,71,79,89,101,107,131,137,139,149,157,163,167,
%T 199,211,227,229,257,281,283,293,311,347,349,353,367,373,379,389,409,
%U 419,421,431,433,439,457,461,479,487,499,503,509,547,557
%N Primes p such that Legendre(-17,p) = 0 or 1.
%C Primes p such that p == 1, 2, 3, 7, 9, 11, 13, 17, 21, 23, 25, 27, 31, 33, 39, 49, 53, or 63 (mod 68). - _Robert Israel_, Dec 26 2017
%H Robert Israel, <a href="/A296931/b296931.txt">Table of n, a(n) for n = 1..10000</a>
%p Load the Maple program HH given in A296920. Then run HH(-17, 200); This produces A296929, A296930, A296931.
%p Alternative:
%p select(p-> isprime(p) and numtheory:-legendre(-17,p)<>-1, [2,seq(i,i=3..1000)]); # _Robert Israel_, Dec 26 2017
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Dec 26 2017