%I #12 Sep 08 2022 08:45:57
%S 2,5,11,41,43,47,59,61,71,79,83,89,103,127,137,139,149,157,167,181,
%T 197,199,211,227,239,277,281,283,293,313,317,337,353,359,367,373,383,
%U 401,431,433,439,449,461,479,509,523,547,557,571,587,593,601,607,617
%N Primes p with Jacobi symbol (p|39) = 1.
%C Originally incorrectly named "primes which are squares (mod 39)", which is subsequence A267455 \ {3, 13}. - _M. F. Hasler_, Jan 15 2016
%H Vincenzo Librandi, <a href="/A191029/b191029.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]], JacobiSymbol[#,39]==1&]
%o (Magma) [p: p in PrimesUpTo(617) | JacobiSymbol(p, 39) eq 1]; // _Vincenzo Librandi_, Sep 10 2012
%o (PARI) select(p->kronecker(p,39)==1&&isprime(p),[1..1000]) \\ _M. F. Hasler_, Jan 15 2016
%Y Cf. A191017, A191018, A191020, A191023, A191025, A191026, A191028.
%K nonn,easy
%O 1,1
%A _T. D. Noe_, May 24 2011
%E Definition corrected (following an observation by _David Broadhurst_) by _M. F. Hasler_, Jan 15 2016