|
%I #22 Nov 21 2023 05:18:47
%S 3384481,4280329,4555151,5334313,6915191,7265281,7586401,7761121,
%T 9240001,10483201,10859689,11081641,11314801,11682889,12002761,
%U 12426481,12493321,14000281,15210001,18410831,19587481,21475609,21573191,21834961,23025601,24024289
%N Primes with 67 as smallest positive primitive root.
%H Robert Price, <a href="/A114682/b114682.txt">Table of n, a(n) for n = 1..2298</a>
%F Equals { p in A000040 | A001918(p) = 67 }. - _M. F. Hasler_, Feb 22 2012
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@1450000, PrimitiveRoot@# == 67 &]
%t Select[Prime[Range[1450000]],PrimitiveRoot[#]==67&] (* _Harvey P. Dale_, Feb 22 2012 *)
%o (PARI) /* The following assumes that znprimroot() returns the smallest primitive root */ is_A114682(n)={ znprimroot(n)==67 } \\ _M. F. Hasler_, Feb 22 2012
%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(24) and beyond from _Robert Price_, Nov 20 2023
|
