%I #15 Nov 20 2023 11:55:15

%S 95525767,119154337,187156663,241624153,307396447,315255697,350645233,

%T 359030233,397620007,398947033,414684817,443874817,512952007,

%U 536331097,556355647,559634377,588250447,635613463,657965743,747854017,753117457,753369457,800256913

%N Primes with 45 as smallest positive primitive root.

%H Robert Price, <a href="/A114662/b114662.txt">Table of n, a(n) for n = 1..69</a>

%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[Prime@n] == 45, AppendTo[t, n]; Print@n], {n, 38600000}]; 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 Duplicate at a(18) removed by _Robert Price_, Nov 19 2023

%E a(21)-a(23) from _Robert Price_, Nov 19 2023