login
A191024
Primes that are squares mod 31.
1
2, 5, 7, 19, 41, 47, 59, 67, 71, 97, 101, 103, 107, 109, 113, 131, 149, 157, 163, 173, 191, 193, 211, 227, 233, 257, 281, 283, 293, 307, 311, 317, 349, 359, 373, 379, 397, 419, 421, 431, 439, 443, 467, 479, 503, 521, 541, 547, 563, 577, 593, 599, 607, 617
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[150]], JacobiSymbol[#, 31]==1&]
PROG
(Magma) [p: p in PrimesUpTo(617) | JacobiSymbol(p, 31) eq 1]; // Vincenzo Librandi, Sep 10 2012
CROSSREFS
Sequence in context: A046115 A267481 A089443 * A215212 A106872 A071198
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, May 24 2011
STATUS
approved