A038980 Primes p such that 91 is not a square mod p.

2, 17, 19, 23, 31, 37, 43, 47, 59, 61, 79, 83, 101, 107, 109, 127, 137, 149, 157, 167, 173, 179, 181, 191, 193, 197, 211, 223, 227, 257, 263, 269, 271, 281, 307, 313, 317, 347, 383, 401, 421, 433, 443, 449, 457

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A368856 A106849 A064697 * A074857 A191018 A133247

Adjacent sequences: A038977 A038978 A038979 * A038981 A038982 A038983

Keyword

nonn,easy

Author

N. J. A. Sloane.

Extensions

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

Status

approved