Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Nov 20 2023 00:03:31
%S 275641,374761,534601,568921,687961,877321,931921,1062311,1112471,
%T 1126441,1360631,1371841,1373761,1736881,2074801,2097169,2147473,
%U 2152921,2202601,2214001,2263801,2427769,2616071,2652841,2698921,2759951,3027361,3244921,3265441
%N Primes with 47 as smallest positive primitive root.
%H Robert Price, <a href="/A114664/b114664.txt">Table of n, a(n) for n = 1..10000</a>
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@220000, PrimitiveRoot@# == 47 &]
%t 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 *)
%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(26)-a(29) from _Robert Price_, Nov 19 2023