A038898 Primes p such that 23 is not a square mod p.
3, 5, 17, 31, 37, 47, 53, 59, 61, 71, 89, 97, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 179, 181, 211, 223, 229, 239, 241, 271, 281, 293, 307, 311, 313, 331, 337, 347, 373, 389, 401, 421, 433, 439
Offset: 1
Keywords
Links
Programs
-
Mathematica
Select[Prime@Range[120], JacobiSymbol[23, #] == -1 &] (* Vincenzo Librandi, Sep 08 2012 *)
Extensions
Offset changed from 0 to 1 by Vincenzo Librandi, Sep 08 2012
Comments