|
%I #8 Nov 26 2023 10:31:50
%S 3733801,35507761,35902441,43734601,52704961,57882691,60170881,
%T 66434341,88016041,102019681,111554041,119630281,145836601,153955201,
%U 167521201,170963521,183145561,206125921,210210841,210912601,217455001,245357641,255934561,261094201
%N Primes with 68 as smallest positive primitive root.
%H Robert Price, <a href="/A114683/b114683.txt">Table of n, a(n) for n = 1..7874</a>
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 68, AppendTo[t, n]; Print@Prime@n], {n, 13500000}]; 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(23)-a(24) from _Robert Price_, Nov 26 2023
|
