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,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A069377 A235931 A204414 * A157079 A321065 A183736

Adjacent sequences: A114663 A114664 A114665 * A114667 A114668 A114669

Keyword

nonn

Author

Robert G. Wilson v, Dec 21 2005

Extensions

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

Status

approved