%I #9 Nov 21 2023 05:20:14
%S 110881,3236689,3451009,7318921,8180041,15124201,20552449,20753329,
%T 22078681,22772689,23048089,25454521,32367721,33937201,35428511,
%U 37842841,39070249,42598609,47627711,52920169,63360361,69656161,73323721,77630281,78504721
%N Primes with 69 as smallest positive primitive root.
%H Robert Price, <a href="/A114684/b114684.txt">Table of n, a(n) for n = 1..635</a>
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 69, AppendTo[t, n]; Print@Prime@n], {n, 4310000}]; 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) and beyond from _Robert Price_, Nov 20 2023