A191058 Primes that are squares mod 97.

2, 3, 11, 31, 43, 47, 53, 61, 73, 79, 89, 101, 103, 109, 113, 151, 163, 167, 191, 193, 197, 227, 229, 241, 269, 283, 293, 307, 313, 353, 379, 389, 397, 419, 421, 431, 449, 461, 463, 467, 479, 487, 491, 503, 509, 521, 547, 557, 571, 593, 607, 613, 617, 631

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[200]], JacobiSymbol[#, 97]==1&]

Prog

(Magma) [p: p in PrimesUpTo(631) | JacobiSymbol(p, 97) eq 1]; // Vincenzo Librandi, Sep 10 2012

Crossrefs

Sequence in context: A195732 A038987 A142957 * A080155 A235625 A032357

Adjacent sequences: A191055 A191056 A191057 * A191059 A191060 A191061

Keyword

nonn,easy

Author

T. D. Noe, May 25 2011

Status

approved