%I #16 Sep 23 2013 18:08:20
%S 268969,275263,316681,492911,514081,536311,546361,553561,579961,
%T 586009,641761,674831,744721,798481,827461,834961,1021561,1023409,
%U 1063609,1083319,1102921,1117321,1122241,1190951,1246561,1270561
%N Primes with 33 as smallest positive primitive root.
%H Vincenzo Librandi, <a href="/A061736/b061736.txt">Table of n, a(n) for n = 1..1380</a>
%t Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 33 & ] ]
%t Select[ Prime@Range@100000, PrimitiveRoot@# == 33 &] (* _Robert G. Wilson v_, May 11 2001 *)
%Y Cf. A001918, A001126, A019359.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, May 06 2001
%E More terms from _Robert G. Wilson v_, May 11 2001
|