A114664 Primes with 47 as smallest positive primitive root.

275641, 374761, 534601, 568921, 687961, 877321, 931921, 1062311, 1112471, 1126441, 1360631, 1371841, 1373761, 1736881, 2074801, 2097169, 2147473, 2152921, 2202601, 2214001, 2263801, 2427769, 2616071, 2652841, 2698921, 2759951, 3027361, 3244921, 3265441

Offset: 1

Author

Robert G. Wilson v, Dec 21 2005

Keywords

• nonn

Links

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

Crossrefs

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

Programs

Mathematica

(* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@220000, PrimitiveRoot@# == 47 &]
Select[Prime[Range[200000]],PrimitiveRoot[#,1]==47&] (* PrimitiveRoot is now part of Mathematica's core language so there is no need to load NumberTheory`NumberTheoryFunctions first any longer *) (* Harvey P. Dale, Jul 16 2016 *)

Extensions

a(26)-a(29) from Robert Price, Nov 19 2023