

A191043


Primes p that have Kronecker symbol (p70) = 1.


5



17, 19, 37, 43, 47, 53, 59, 61, 67, 71, 73, 79, 97, 101, 103, 107, 131, 139, 151, 163, 167, 181, 191, 197, 223, 229, 239, 251, 257, 269, 277, 281, 313, 317, 347, 349, 353, 359, 367, 373, 383, 401, 419, 431, 433, 443, 449, 461, 503, 509, 547, 557, 569, 577
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Originally incorrectly named "primes which are squares mod 70", which is sequence A106881.  M. F. Hasler, Jan 15 2016


LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000


MATHEMATICA

Select[Prime[Range[200]], JacobiSymbol[#, 70]==1&]


PROG

(MAGMA) [p: p in PrimesUpTo(577)  KroneckerSymbol(p, 70) eq 1]; // Vincenzo Librandi, Sep 11 2012
(PARI) select(p>kronecker(p, 70)==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, A191042.
Sequence in context: A318940 A289355 A144214 * A306510 A129805 A289492
Adjacent sequences: A191040 A191041 A191042 * A191044 A191045 A191046


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



