login
A114684
Primes with 69 as smallest positive primitive root.
1
110881, 3236689, 3451009, 7318921, 8180041, 15124201, 20552449, 20753329, 22078681, 22772689, 23048089, 25454521, 32367721, 33937201, 35428511, 37842841, 39070249, 42598609, 47627711, 52920169, 63360361, 69656161, 73323721, 77630281, 78504721
OFFSET
1,1
LINKS
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 69, AppendTo[t, n]; Print@Prime@n], {n, 4310000}]; Prime@t
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(23) and beyond from Robert Price, Nov 20 2023
STATUS
approved