login
Primes p such that Legendre(-23,p) = 0 or 1.
2

%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