%I #19 May 23 2021 03:01:26
%S 2,17,19,23,31,47,53,61,79,83,107,109,113,137,139,151,167,173,181,197,
%T 199,211,227,229,233,241,257,263,271,293,317,331,347,349,353,379,383,
%U 409,421,439,443,467,499,503,541,557,563,571,587,593,601,617,619,631
%N Primes p with Jacobi symbol (p|3*5) = 1.
%C 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 (p|3) = (p|5) = -1. - _David Broadhurst_ and _M. F. Hasler_, Jan 15 2016
%C Primes congruent to {1, 2, 4, 8} mod 15. - _Wolfdieter Lang_, May 19 2021
%H Vincenzo Librandi, <a href="/A191018/b191018.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]], JacobiSymbol[#,15]==1&]
%o (PARI) is(p)=kronecker(p,15)==1&&isprime(p) \\ _M. F. Hasler_, Jan 15 2016
%Y Cf. A316569.
%Y Primes of A341786, except 3 and 5.
%K nonn,easy
%O 1,1
%A _T. D. Noe_, May 24 2011
%E Name corrected upon suggestion from _David Broadhurst_ by _M. F. Hasler_, Jan 15 2016