A114680 - OEIS

%I #11 Nov 21 2023 05:19:34

%S 11089681,12780601,12937417,13359361,14880721,21843361,26686081,

%T 36474001,43208857,61214471,62130097,64723849,65049889,68478481,

%U 73237081,73610881,74207281,78489049,88689001,95037073,99589561,99705769,100127281,102215233,10307304

%N Primes with 65 as smallest positive primitive root.

%H Robert Price, <a href="/A114680/b114680.txt">Table of n, a(n) for n = 1..558</a>

%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 65, AppendTo[t, n]; Print@Prime@n], {n, 5890000}]; Prime@t

%t Select[Prime[Range[574*10^4]],PrimitiveRoot[#,1]==65&] (* _Harvey P. Dale_, Jul 30 2019 *)

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

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Dec 21 2005

%E a(22) and beyond from _Robert Price_, Nov 20 2023