%I #17 Oct 13 2022 13:57:14
%S 2,7,11,13,17,41,47,67,89,101,103,109,113,131,137,139,151,181,191,199,
%T 223,241,251,263,269,277,283,293,311,313,317,349,359,373,389,397,439,
%U 443,449,457,461,463,467,479,487,491,499,503,523,547,563,569,571,599
%N Primes p that have Kronecker symbol (p|87) = 1.
%C From _Jianing Song_, Oct 13 2022: (Start)
%C Originally erroneously named "Primes that are squares mod 87".
%C Equivalently, primes p such that kronecker(-87,p) = 1.
%C Rational primes that decompose in the field Q(sqrt(-87)).
%C Primes congruent to 1, 2, 4, 7, 8, 11, 13, 14, 16, 17, 22, 25, 26, 28, 32, 34, 41, 44, 47, 49, 50, 52, 56, 64, 67, 68, 77, 82 modulo 87. (End)
%H Vincenzo Librandi, <a href="/A191052/b191052.txt">Table of n, a(n) for n = 1..1000</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[#,87]==1&]
%o (Magma) [p: p in PrimesUpTo(599) | JacobiSymbol(p, 87) eq 1]; // _Vincenzo Librandi_, Sep 10 2012
%o (PARI) isA191052(p) == isprime(p) && kronecker(p, 87) == 1 \\ _Jianing Song_, Oct 13 2022
%Y Cf. A191084 (rational primes that remain inert in the field Q(sqrt(-87))).
%K nonn,easy
%O 1,1
%A _T. D. Noe_, May 25 2011
%E Definition corrected by _Jianing Song_, Oct 13 2022