A038982 Primes p such that 93 is not a square mod p.

2, 5, 13, 37, 41, 43, 47, 59, 61, 71, 73, 79, 101, 107, 113, 127, 131, 139, 149, 151, 173, 181, 191, 199, 223, 227, 229, 233, 241, 257, 271, 277, 281, 293, 311, 313, 317, 331, 337, 359, 367, 409, 419, 431, 433

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A148298 A148299 A148300 * A266966 A019415 A262203

Adjacent sequences: A038979 A038980 A038981 * A038983 A038984 A038985

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

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

Status

approved