%I #11 Oct 19 2021 02:51:21
%S 2,409,439,3631,4441,4657,8681,12841,15889,16633,21559,22751,28393,
%T 30091,30937,32257,32353,33811,33871,36793,36871,41809,41851,42193,
%U 46649,48673,51631,55921,58237,59053,59497,60889,63691,64609,71011
%N Primes for which the smallest positive primitive root is odd and nonprime.
%H Amiram Eldar, <a href="/A070269/b070269.txt">Table of n, a(n) for n = 1..10000</a>
%t onpQ[n_]:=Module[{pr=PrimitiveRoot[n,1]},OddQ[pr]&&!PrimeQ[pr]]; Select[ Prime[ Range[7100]],onpQ] (* _Harvey P. Dale_, Jun 22 2020 *)
%o (PARI) forprime(n=1,100000,if((-1)^(lift(znprimroot(n))*(1-isprime(lift(znprimroot(n)))))==-1,print1(n,",")))
%Y Cf. A047936, A001918.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, May 09 2002
|