login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes with 47 as smallest positive primitive root.
2

%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