A061325 - OEIS

%I #13 Feb 01 2016 03:01:52

%S 4111,7841,10111,15391,15991,16061,20011,21031,22699,32299,32957,

%T 35911,43963,45127,45631,47431,49831,51199,53731,58111,59671,60331,

%U 64231,74311,76039,78079,81331,81761,83311,83431,98911,102871,104729,108907

%N Primes with 12 as smallest positive primitive root.

%H T. D. Noe, <a href="/A061325/b061325.txt">Table of n, a(n) for n=1..1000</a>

%t Prime[ Select[ Range[15000], PrimitiveRoot[ Prime[ # ] ] == 12 & ] ]

%t (* or *)

%t Select[ Prime@Range@15000, PrimitiveRoot@# == 12 &] (* _Robert G. Wilson v_, May 11 2001 *)

%Y Cf. A001918, A001126, A019340.

%K nonn

%O 1,1

%A _Klaus Brockhaus_, Apr 24 2001