A038914 Primes p such that 37 is not a square mod p.
2, 5, 13, 17, 19, 23, 29, 31, 43, 59, 61, 79, 89, 97, 103, 109, 113, 131, 163, 167, 179, 191, 193, 199, 227, 239, 241, 251, 257, 277, 281, 283, 311, 313, 331, 347, 353, 383, 389, 401, 409, 421, 431, 439, 449, 457
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime@Range[120], JacobiSymbol[37, #] == -1 &] (* Vincenzo Librandi, Sep 09 2012 *)