%I #13 Feb 01 2016 02:53:34
%S 133321,140351,151009,160081,191161,224041,277747,282481,298681,
%T 344161,485161,509521,570001,669241,675601,700129,784351,859751,
%U 874681,1014121,1068721,1222831,1613041,1618387,1794841,1795561,1868231
%N Primes with 28 as smallest positive primitive root.
%H Vincenzo Librandi, <a href="/A061732/b061732.txt">Table of n, a(n) for n = 1..590</a>
%t Prime[ Select[ Range[150000], PrimitiveRoot[ Prime[ # ] ] == 28 & ] ]
%t (* or *)
%t Select[ Prime@Range@150000, PrimitiveRoot@# == 28 &] (* _Robert G. Wilson v_, May 11 2001 *)
%Y Cf. A001918, A001126, A019354.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, May 06 2001
%E More terms from _Robert G. Wilson v_, May 11 2001
|