A038878 Primes p such that 7 is a square mod p.
2, 3, 7, 19, 29, 31, 37, 47, 53, 59, 83, 103, 109, 113, 131, 137, 139, 149, 167, 193, 197, 199, 223, 227, 233, 251, 271, 277, 281, 283, 307, 311, 317, 337, 367, 373, 383, 389, 401, 419, 421, 439, 449, 457, 467
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[100]], JacobiSymbol[7, #] != -1 &] (* Vincenzo Librandi, Sep 07 2012 *) Union[{2,7},Select[Flatten[Table[{1,3,9,19,25,27}+28*k,{k,0,10}]],PrimeQ]](* Zak Seidov, Sep 25 2014 *)
Comments