

A191018


Primes p with Jacobi symbol (p3*5) = 1.


25



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Originally incorrectly named "Primes that are squares mod 15", which is the subsequence A033212. The present sequence also includes primes which are not square mod 3 neither mod 5, i.e., with Legendre symbols (p3) = (p5) = 1.  David Broadhurst and M. F. Hasler, Jan 15 2016


LINKS



MATHEMATICA

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


PROG

(PARI) is(p)=kronecker(p, 15)==1&&isprime(p) \\ M. F. Hasler, Jan 15 2016


CROSSREFS



KEYWORD

nonn,easy


AUTHOR



EXTENSIONS



STATUS

approved



