A038988 Primes p such that 97 is not a square mod p.

5, 7, 13, 17, 19, 23, 29, 37, 41, 59, 67, 71, 83, 107, 127, 131, 137, 139, 149, 157, 173, 179, 181, 199, 211, 223, 233, 239, 251, 257, 263, 271, 277, 281, 311, 317, 331, 337, 347, 349, 359, 367, 373, 383, 401, 409

Offset

1,1

Comments

Also, primes p that are not squares mod 97 (from the quadratic reciprocity law). - Lekraj Beedassy, Jul 13 2004

Links

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

Mathematica

Select[Prime[Range[120]], JacobiSymbol[97, #]==-1 &] (* Vincenzo Librandi, Sep 10 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(409) | not IsSquare(R! 97) where R:= ResidueClassRing(p) ]; // Vincenzo Librandi, Sep 10 2012

Crossrefs

Sequence in context: A216737 A078867 A038911 * A033560 A092551 A177017

Adjacent sequences: A038985 A038986 A038987 * A038989 A038990 A038991

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Sep 10 2012

Status

approved