login
A114682
Primes with 67 as smallest positive primitive root.
1
3384481, 4280329, 4555151, 5334313, 6915191, 7265281, 7586401, 7761121, 9240001, 10483201, 10859689, 11081641, 11314801, 11682889, 12002761, 12426481, 12493321, 14000281, 15210001, 18410831, 19587481, 21475609, 21573191, 21834961, 23025601, 24024289
OFFSET
1,1
LINKS
FORMULA
Equals { p in A000040 | A001918(p) = 67 }. - M. F. Hasler, Feb 22 2012
MATHEMATICA
(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@1450000, PrimitiveRoot@# == 67 &]
Select[Prime[Range[1450000]], PrimitiveRoot[#]==67&] (* Harvey P. Dale, Feb 22 2012 *)
PROG
(PARI) /* The following assumes that znprimroot() returns the smallest primitive root */ is_A114682(n)={ znprimroot(n)==67 } \\ M. F. Hasler, Feb 22 2012
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 21 2005
EXTENSIONS
a(24) and beyond from Robert Price, Nov 20 2023
STATUS
approved