A114666 Primes with 50 as smallest positive primitive root.

23126821, 335139421, 427990531, 709267021, 738459541, 809484061, 1016774221, 1075376821, 1122243739, 1492684411, 1557748501, 1744951261, 2726543821, 2772069301, 3146962261, 3267684421, 3395830621, 3691544011, 3705614221, 3873482341, 4315462621, 4959079861

Offset: 1

Author

Robert G. Wilson v, Dec 21 2005

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

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

Extensions

a(20)-a(22) from Robert Price, Nov 25 2023