%I #10 Oct 07 2021 02:01:21
%S 41,109,151,229,251,271,313,337,367,733,761,971,991,1021,1031,1069,
%T 1289,1297,1303,1429,1471,1489,1759,1783,1789,1811,1871,1873,1879,
%U 2137,2411,2441,2551,2749,2791,2971,3001,3061,3079,3109,3221,3229,3251,3301
%N Primes for which the smallest positive primitive root is even and nonprime.
%H Amiram Eldar, <a href="/A070270/b070270.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[500]],EvenQ[PrimitiveRoot[#]]&&PrimitiveRoot[#]!=2&] (* _Harvey P. Dale_, Jul 31 2015 *)
%o (PARI) forprime(n=1,5000,if((-1)^(lift(znprimroot(n))*(1-isprime(lift(znprimroot(n)))))==1+isprime(lift(znprimroot(n))),print1(n,",")))
%Y Cf. A047936, A001918.
%K easy,nonn
%O 1,1
%A _Benoit Cloitre_, May 09 2002
|