editing
approved
editing
approved
Select[ Prime@Range@200000, PrimitiveRoot[#] == 20 &] (from _* _Robert G. Wilson v_, May 11 2001 *)
approved
editing
Select[ Prime@Range@200000, PrimitiveRoot[#] == 20 &] (from _Robert G. Wilson v (rgwv(at)rgwv.com), _, May 11 2001)
More terms from _Robert G. Wilson v (rgwv(AT)rgwv.com), _, May 11 2001
_Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), _, Apr 25 2001
proposed
approved
Select[ Prime@Range@200000, PrimitiveRoot@[# ] == 20 &] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 11 2001)
reviewed
proposed
proposed
reviewed
<< NumberTheory`NumberTheoryFunctions`; Prime[ Select[ Range[2 10^5], PrimitiveRoot[ Prime[ # ] ] == 20 & ] ]
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@200000, PrimitiveRoot@# == 20 &] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 11 2001)
approved
proposed
T. D. Noe, <a href="/A061332/b061332.txt">Table of n, a(n) for n=1..1000</a>
nonn,new
nonn