login
A114683
Primes with 68 as smallest positive primitive root.
1
3733801, 35507761, 35902441, 43734601, 52704961, 57882691, 60170881, 66434341, 88016041, 102019681, 111554041, 119630281, 145836601, 153955201, 167521201, 170963521, 183145561, 206125921, 210210841, 210912601, 217455001, 245357641, 255934561, 261094201
OFFSET
1,1
LINKS
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 68, AppendTo[t, n]; Print@Prime@n], {n, 13500000}]; Prime@t
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(23)-a(24) from Robert Price, Nov 26 2023
STATUS
approved