login
A114662
Primes with 45 as smallest positive primitive root.
2
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,1
LINKS
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[Prime@n] == 45, AppendTo[t, n]; Print@n], {n, 38600000}]; Prime@t
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
Duplicate at a(18) removed by Robert Price, Nov 19 2023
a(21)-a(23) from Robert Price, Nov 19 2023
STATUS
approved