A038987 Primes p such that 97 is a square mod p.

2, 3, 11, 31, 43, 47, 53, 61, 73, 79, 89, 97, 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

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Links

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

Programs

Mathematica

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

Extensions

Incorrect comment deleted by Philippe Deléham, Sep 16 2009