

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



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


CROSSREFS



KEYWORD

nonn,changed


AUTHOR



EXTENSIONS



STATUS

approved



