A191018 Primes p with Jacobi symbol (p|3*5) = 1.
2, 17, 19, 23, 31, 47, 53, 61, 79, 83, 107, 109, 113, 137, 139, 151, 167, 173, 181, 197, 199, 211, 227, 229, 233, 241, 257, 263, 271, 293, 317, 331, 347, 349, 353, 379, 383, 409, 421, 439, 443, 467, 499, 503, 541, 557, 563, 571, 587, 593, 601, 617, 619, 631
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,15]==1&]
-
PARI
is(p)=kronecker(p,15)==1&&isprime(p) \\ M. F. Hasler, Jan 15 2016
Extensions
Name corrected upon suggestion from David Broadhurst by M. F. Hasler, Jan 15 2016
Comments