A280930 - OEIS

%I #12 Jan 01 2018 19:50:13

%S 2,3,5,11,13,19,23,29,37,41,47,53,59,61,67,71,73,83,97,101,103,107,

%T 109,131,139,149,151,157,163,167,173,179,181,191,193,197,211,227,229,

%U 239,241,251,263,269,271,277,293,307,311,313,317,337,347,349,359,367,373

%N Primes for which 3 is not the smallest primitive root.

%H Vincenzo Librandi, <a href="/A280930/b280930.txt">Table of n, a(n) for n = 1..7700</a>

%t Select[Prime[Range[1, 100]], PrimitiveRoot[#] =!= 3 &]

%t Select[Prime[Range[100]],PrimitiveRoot[#,1]!=3&] (* _Harvey P. Dale_, Jan 01 2018 *)

%Y Complement of A001123.

%K nonn

%O 1,1

%A _Vincenzo Librandi_, Jan 11 2017