A038976 Primes p such that 87 is not a square mod p.

5, 7, 11, 37, 47, 53, 61, 67, 73, 97, 103, 131, 139, 149, 151, 157, 173, 191, 193, 197, 199, 223, 229, 233, 251, 257, 263, 281, 283, 311, 337, 353, 359, 401, 409, 421, 433, 439, 443, 463, 467, 479, 487, 491, 499

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A288609 A156559 A018426 * A363673 A106714 A106819

Adjacent sequences: A038973 A038974 A038975 * A038977 A038978 A038979

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

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

Status

approved