A114662 Primes with 45 as smallest positive primitive root.

95525767, 119154337, 187156663, 241624153, 307396447, 315255697, 350645233, 359030233, 397620007, 398947033, 414684817, 443874817, 512952007, 536331097, 556355647, 559634377, 588250447, 635613463, 657965743, 747854017, 753117457, 753369457, 800256913

Offset: 1

Author

Robert G. Wilson v, Dec 21 2005

Keywords

• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..69

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Programs

Mathematica

(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[Prime@n] == 45, AppendTo[t, n]; Print@n], {n, 38600000}]; Prime@t

Extensions

Duplicate at a(18) removed by Robert Price, Nov 19 2023

a(21)-a(23) from Robert Price, Nov 19 2023