OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..635
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 69, AppendTo[t, n]; Print@Prime@n], {n, 4310000}]; Prime@t
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(23) and beyond from Robert Price, Nov 20 2023
a(23) inserted by David Radcliffe, Aug 04 2025
STATUS
approved
