OFFSET
1,1
COMMENTS
From Jianing Song, Oct 13 2022: (Start)
Originally erroneously named "Primes that are squares mod 87".
Equivalently, primes p such that kronecker(-87,p) = 1.
Rational primes that decompose in the field Q(sqrt(-87)).
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)
LINKS
MATHEMATICA
Select[Prime[Range[200]], JacobiSymbol[#, 87]==1&]
PROG
(Magma) [p: p in PrimesUpTo(599) | JacobiSymbol(p, 87) eq 1]; // Vincenzo Librandi, Sep 10 2012
(PARI) isA191052(p) == isprime(p) && kronecker(p, 87) == 1 \\ Jianing Song, Oct 13 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, May 25 2011
EXTENSIONS
Definition corrected by Jianing Song, Oct 13 2022
STATUS
approved