A038942 Primes p such that 61 is not a square mod p.

2, 7, 11, 17, 23, 29, 31, 37, 43, 53, 59, 67, 71, 79, 89, 101, 139, 151, 157, 173, 181, 191, 193, 211, 223, 227, 233, 251, 277, 281, 307, 311, 313, 331, 337, 349, 359, 373, 383, 389, 397, 401, 409, 419, 421, 433

Offset

1,1

Links

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

Mathematica

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

Prog

(PARI) select(n->!issquare(Mod(61, n)), primes(100)) \\ Charles R Greathouse IV, Sep 09 2012

Crossrefs

Sequence in context: A297469 A356190 A168421 * A175283 A124136 A156828

Adjacent sequences: A038939 A038940 A038941 * A038943 A038944 A038945

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

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

Status

approved