|
|
A114666
|
|
Primes with 50 as smallest positive primitive root.
|
|
1
|
|
|
23126821, 335139421, 427990531, 709267021, 738459541, 809484061, 1016774221, 1075376821, 1122243739, 1492684411, 1557748501, 1744951261, 2726543821, 2772069301, 3146962261, 3267684421, 3395830621, 3691544011, 3705614221, 3873482341, 4315462621, 4959079861
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 50, AppendTo[t, n]; Print@Prime@n], {n, 235000000}]; Prime@t
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|