A191024 Primes that are squares mod 31.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A191021 A191022 A191023 * A191025 A191026 A191027

Keyword

nonn,easy

Author

T. D. Noe, May 24 2011

Status

approved