login
A114670
Primes with 54 as smallest positive primitive root.
2
4348468741, 5646352141, 8962988581, 9038426461, 11609988391, 11817434581, 12350678341, 13012156741, 14241302461, 15487852381, 15511469821, 15833904661, 16476019141, 16627692511, 18075106141, 18896377501, 19490407861, 21539102341, 21757138261, 24953494861
OFFSET
1,1
LINKS
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 54, AppendTo[t, n]; Print@Prime@n], {n, 110223179}]; Prime@t
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(2)-a(5) from Tomás Oliveira e Silva (tos(AT)det.ua.pt) and Ray Chandler, Jan 05 2006
a(6)-a(20) from Robert Price, Nov 25 2023
STATUS
approved