%I #12 Feb 01 2016 02:53:51
%S 15791,18191,20231,33049,33289,33601,35279,38639,46489,47041,47881,
%T 61681,63839,64279,76831,87481,87911,89041,110569,120121,130729,
%U 143263,147671,159769,193751,199559,210961,217439,217561,231961,238681,240769
%N Primes with 29 as smallest positive primitive root.
%H Vincenzo Librandi, <a href="/A061733/b061733.txt">Table of n, a(n) for n = 1..8000</a>
%t Prime[ Select[ Range[22000], PrimitiveRoot[ Prime[ # ] ] == 29 & ] ]
%t (* or *)
%t Select[ Prime@Range@22000, PrimitiveRoot@# == 29 &] (* _Robert G. Wilson v_, May 11 2001 *)
%Y Cf. A001918, A001126, A019355.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, May 06 2001
|