A114682 Primes with 67 as smallest positive primitive root.

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

Robert Price, Table of n, a(n) for n = 1..2298

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

Crossrefs

Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.

Sequence in context: A036472 A206168 A206382 * A157106 A123201 A358017

Adjacent sequences: A114679 A114680 A114681 * A114683 A114684 A114685

Keyword

nonn,changed

Author

Robert G. Wilson v, Dec 21 2005

Extensions

a(24) and beyond from Robert Price, Nov 20 2023

Status

approved