A038938 Primes p such that 58 is not a square mod p.

5, 13, 17, 31, 41, 47, 53, 59, 67, 73, 79, 83, 89, 97, 107, 109, 113, 127, 137, 139, 149, 173, 179, 181, 191, 193, 197, 227, 263, 271, 277, 283, 311, 337, 347, 349, 359, 367, 373, 397, 409, 419, 433, 449, 479, 499

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A123079 A273950 A268511 * A253079 A184851 A211425

Adjacent sequences: A038935 A038936 A038937 * A038939 A038940 A038941

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

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

Status

approved