A038970 Primes p such that 83 is not a square mod p.

2, 3, 5, 7, 11, 13, 23, 31, 53, 59, 73, 89, 97, 101, 127, 131, 137, 149, 151, 157, 167, 181, 191, 199, 227, 233, 257, 269, 281, 337, 359, 383, 389, 419, 421, 431, 433, 443, 449, 457, 461, 463, 479, 499, 523, 541

Offset

1,1

Comments

Also, only entries p=1 (mod 4) of the sequence are not squares mod 83 (from the quadratic reciprocity law). - Lekraj Beedassy, Jul 21 2004

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A291691 A178576 A360147 * A079149 A343973 A024694

Adjacent sequences: A038967 A038968 A038969 * A038971 A038972 A038973

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

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

Status

approved