A061734 - OEIS

%I #13 Feb 01 2016 02:53:59

%S 124153,133261,140071,209353,343381,384913,948391,984817,1151473,

%T 1189471,1282909,1516759,1517101,1629031,1666711,1736617,1819273,

%U 1918879,1998793,2142271,2176831,2201671,2306221,2314231,2526781,2534101,2557501,2566261,3131353,3150391

%N Primes with 30 as smallest positive primitive root.

%H Vincenzo Librandi, <a href="/A061734/b061734.txt">Table of n, a(n) for n = 1..530</a>

%t Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 30 & ] ]

%t (* or *)

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

%Y Cf. A001918, A001126, A019356.

%K nonn

%O 1,1

%A _Klaus Brockhaus_, May 06 2001

%E More terms from _Robert G. Wilson v_, May 11 2001

%E a(12)-a(30) from _Vincenzo Librandi_, Sep 22 2013