login
A114681
Primes with 66 as smallest positive primitive root.
1
27955201, 30822481, 33776401, 80724841, 111549481, 115129561, 164062081, 260568421, 288955801, 304100161, 348601681, 348990769, 411542401, 446320729, 464872591, 470475121, 473949121, 514613581, 541760881, 544552681, 552269761, 637927201, 652107121, 669037321
OFFSET
1,1
LINKS
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 66, AppendTo[t, n]; Print@Prime@n], {n, 29000000}]; Prime@t
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(22)-a(24) from Robert Price, Nov 26 2023
STATUS
approved