A038890 Primes p such that 17 is not a square mod p.
3, 5, 7, 11, 23, 29, 31, 37, 41, 61, 71, 73, 79, 97, 107, 109, 113, 131, 139, 163, 167, 173, 181, 193, 197, 199, 211, 227, 233, 241, 269, 277, 283, 311, 313, 317, 337, 347, 367, 379, 397, 401, 419, 431, 439, 449
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime@Range[120], JacobiSymbol[17, #] == -1 &] (* Vincenzo Librandi, Sep 08 2012 *)
Extensions
Offset changed from 0 to 1 by Vincenzo Librandi, Sep 08 2012
Comments