|
%I
%S 4348468741,5646352141,8962988581,9038426461,11609988391
%N Primes with 54 as smallest positive primitive root.
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 54, AppendTo[t, n]; Print@Prime@n], {n, 110223179}]; Prime@t
%Y Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Dec 21 2005
%E a(2)-a(5) from Tomas Oliveira e Silva (tos(AT)det.ua.pt) and _Ray Chandler_, Jan 05 2006
|
