%I #31 Dec 04 2023 01:49:05
%S 5,7,11,29,31,53,59,73,79,83,97,101,103,107,127,131,149,151,173,179,
%T 193,197,199,223,227,241,251,269,271,293,313,317,337,347,367,389,409,
%U 419,433,439,443,457,461,463,467,487,491,509,557,563,577,587,601,607,631
%N Primes congruent to 1, 5, 7, or 11 modulo 24.
%C Also, primes p that divide A085606((p-1)/2) = ((p-1)/2-1)^((p-1)/2) - 1. Primes p such that p^2 divide A085606((p-1)/2) are listed in A157438.
%C Also, primes p>3 such -6 is a square modulo p. - _Max Alekseyev_, May 30 2009
%C Rational primes that decompose in the field Q(sqrt(-6)). - _N. J. A. Sloane_, Dec 25 2017
%H Robert Price, <a href="/A157437/b157437.txt">Table of n, a(n) for n = 1..9990</a>
%H <a href="/index/Pri#primes_decomp_of">Index to sequences related to decomposition of primes in quadratic fields</a>
%t Select[Prime[Range[200]], JacobiSymbol[#, 6] == 1 &] (* _T. D. Noe_, Aug 17 2011 *)
%t Select[Prime[Range[200]],MemberQ[{1,5,7,11},Mod[#,24]]&] (* _Harvey P. Dale_, May 25 2018 *)
%Y Cf. A085606, A157438.
%K nonn
%O 1,1
%A _Alexander Adamchuk_, Mar 01 2009
%E Extended by _Max Alekseyev_, May 30 2009
%E New name from _Max Alekseyev_, Jan 04 2018