%I #10 Nov 26 2023 10:31:54
%S 5620201,137084401,261429481,319917841,463954921,490203481,533231641,
%T 549100081,574690801,600595381,633627721,644868481,647913601,
%U 704247361,713084641,722120881,874850161,916971961,918152161,1030871161,1056236833,1062355369,1096459321
%N Primes with 70 as smallest positive primitive root.
%H Robert Price, <a href="/A114685/b114685.txt">Table of n, a(n) for n = 1..2025</a>
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 70, AppendTo[t, n]; Print@Prime@n], {n, 53600000}]; Prime@t
%t Select[Prime[Range[524*10^5]],PrimitiveRoot[#,1]==70&] (* _Harvey P. Dale_, Jun 22 2021 *)
%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(21)-a(23) from _Robert Price_, Nov 26 2023
|