

A191070


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


1



7, 17, 19, 23, 29, 31, 37, 53, 67, 73, 97, 101, 107, 109, 113, 131, 151, 163, 173, 179, 191, 193, 223, 229, 233, 241, 251, 257, 263, 269, 271, 307, 311, 331, 347, 349, 379, 389, 397, 409, 419, 421, 443, 457, 463, 467, 487, 491, 499, 503, 521, 541, 563, 569
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Originally erroneously named "Primes that are not squares mod 39", which contains this as a subsequence.  M. F. Hasler, Jan 18 2016


LINKS

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


MATHEMATICA

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


PROG

(MAGMA) [p: p in PrimesUpTo(569)  KroneckerSymbol(p, 39) eq 1]; // Bruno Berselli, Sep 11 2012


CROSSREFS

Sequence in context: A067459 A323746 A101240 * A167797 A001913 A270387
Adjacent sequences: A191067 A191068 A191069 * A191071 A191072 A191073


KEYWORD

nonn,easy


AUTHOR

T. D. Noe, May 25 2011


EXTENSIONS

Definition corrected, following a suggestion from David Broadhurst, by M. F. Hasler, Jan 18 2016


STATUS

approved



