login
Primes p such that Legendre(3,p) = 0 or 1.
1

%I #12 May 11 2024 16:36:52

%S 3,11,13,23,37,47,59,61,71,73,83,97,107,109,131,157,167,179,181,191,

%T 193,227,229,239,241,251,263,277,311,313,337,347,349,359,373,383,397,

%U 409,419,421,431,433,443,457,467,479,491,503,541,563,577

%N Primes p such that Legendre(3,p) = 0 or 1.

%H Paolo Xausa, <a href="/A296933/b296933.txt">Table of n, a(n) for n = 1..10000</a>

%p # Load the Maple program HH given in A296920. Then run HH(3, 200); This produces A097933, A003630, this sequence, and A038875.

%t Join[{3}, Select[Prime[Range[200]], JacobiSymbol[3, #] == 1 &]] (* _Paolo Xausa_, May 11 2024 *)

%Y This is A038874 without the initial 2.

%Y Cf. A003630, A038875, A097933, A296920.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Dec 26 2017