A038945 Primes p such that 65 is a square mod p.
2, 5, 7, 13, 29, 37, 47, 61, 67, 73, 79, 83, 97, 101, 131, 137, 139, 163, 167, 179, 181, 191, 193, 197, 199, 211, 223, 227, 251, 269, 293, 307, 311, 317, 353, 383, 389, 397, 419, 439, 457, 463, 487, 491, 521, 557
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[100]], ! JacobiSymbol[65, #] == -1 &] (* Vincenzo Librandi, Sep 08 2012 *)