%I #8 Nov 26 2023 10:31:46
%S 27955201,30822481,33776401,80724841,111549481,115129561,164062081,
%T 260568421,288955801,304100161,348601681,348990769,411542401,
%U 446320729,464872591,470475121,473949121,514613581,541760881,544552681,552269761,637927201,652107121,669037321
%N Primes with 66 as smallest positive primitive root.
%H Robert Price, <a href="/A114681/b114681.txt">Table of n, a(n) for n = 1..4630</a>
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 66, AppendTo[t, n]; Print@Prime@n], {n, 29000000}]; 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(22)-a(24) from _Robert Price_, Nov 26 2023
|