%I #9 Dec 27 2017 01:32:35
%S 2,3,13,23,29,31,41,47,59,71,73,101,127,131,139,151,163,167,173,179,
%T 193,197,211,223,233,239,257,269,271,277,307,311,317,331,347,349,353,
%U 397,409,439,443,449,461,463,487,491,499,509,541,547,577,587
%N Primes p such that Legendre(-23,p) = 0 or 1.
%C Primes == 0, 1, 2, 3, 4, 6, 8, 9, 12, 13, 16, or 18 (mod 23). - _Robert Israel_, Dec 26 2017
%H Robert Israel, <a href="/A296932/b296932.txt">Table of n, a(n) for n = 1..10000</a>
%p Load the Maple program HH given in A296920. Then run HH(-23, 200); This produces A191021, A191065, A296932.
%p Alternative:
%p select(isprime, [2,seq(seq(46*i+j,j=[1, 3, 9, 13, 23, 25, 27, 29, 31, 35, 39, 41]),i=0..30)]); # _Robert Israel_, Dec 26 2017
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Dec 26 2017