A038936 Primes p such that 57 is not a square mod p.

5, 11, 13, 17, 23, 31, 37, 47, 67, 79, 83, 97, 101, 103, 109, 127, 131, 137, 149, 151, 181, 191, 193, 197, 211, 223, 233, 239, 241, 251, 263, 307, 311, 331, 337, 347, 353, 359, 373, 379, 389, 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[57, #] == -1 &] (* Vincenzo Librandi, Sep 09 2012 *)

Prog

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

Crossrefs

Sequence in context: A272446 A307390 A104110 * A106091 A246374 A040113

Adjacent sequences: A038933 A038934 A038935 * A038937 A038938 A038939

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved