|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
CROSSREFS
|
Cf. A191017, A191018, A191020, A191023, A191025, A191026, A191028, A191029, A191032, A191034, A191036, A191037, A191040, A191043, A191046, A191047, A191049.
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|