A038964 Primes p such that 78 is not a square mod p.

5, 17, 19, 47, 61, 67, 71, 73, 79, 97, 103, 107, 113, 127, 131, 149, 157, 163, 167, 179, 181, 193, 197, 199, 233, 239, 241, 251, 257, 277, 293, 307, 317, 331, 347, 359, 367, 373, 379, 383, 409, 419, 431, 439, 443

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A124873 A129745 A304129 * A019401 A217079 A153320

Adjacent sequences: A038961 A038962 A038963 * A038965 A038966 A038967

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

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

Status

approved