login
A191042
Primes p that have Jacobi symbol (p|69) = 1.
5
5, 11, 13, 17, 31, 53, 73, 83, 89, 107, 113, 127, 137, 139, 149, 151, 163, 191, 193, 211, 223, 227, 251, 263, 271, 277, 281, 293, 307, 331, 349, 359, 383, 389, 397, 401, 409, 419, 431, 439, 463, 467, 479, 487, 499, 503, 521, 541, 547, 557, 563, 569, 577, 601
OFFSET
1,1
COMMENTS
Originally incorrectly named "primes which are squares mod 69", which would be the sequence (3, 13, 31, 73, 127, 139, 151, 163, 193, 211, 223, 271, 277, 307, 331, 349, 397, ...). - M. F. Hasler, Jan 15 2016
LINKS
MATHEMATICA
Select[Prime[Range[200]], JacobiSymbol[#, 69]==1&]
PROG
(Magma) [p: p in PrimesUpTo(601) | JacobiSymbol(p, 69) eq 1]; // Vincenzo Librandi, Sep 10 2012
(PARI) select(p->kronecker(p, 69)==1&&isprime(p), [1..1000]) \\ This is to provide a generic characteristic function ("is_A191043") as 1st arg of select(), there are other ways to produce the sequence more efficiently. - M. F. Hasler, Jan 15 2016
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, May 25 2011
EXTENSIONS
Definition corrected (following an observation by David Broadhurst) by M. F. Hasler, Jan 15 2016
STATUS
approved