login
Primes p with Jacobi symbol (p|39) = 1.
13

%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