|
%I #11 Nov 26 2023 02:03:27
%S 823766851,1203424471,1647646771,2539428211,4100784871,4492676371,
%T 5183970931,6326736151,6330402751,8251729531,8735517211,10570534171,
%U 11212271071,12478723111,13609280431,16631896051,18781331911,18884910871,20211833071,20568043471
%N Primes with 48 as smallest positive primitive root.
%H Robert Price, <a href="/A114665/b114665.txt">Table of n, a(n) for n = 1..92</a>
%t (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 48, AppendTo[t, n]; Print@Prime@n], {n, 235000000}]; Prime@t
%Y Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
%K hard,more,nonn
%O 1,1
%A _Robert G. Wilson v_, Dec 21 2005
%E a(7)-a(13) from _Ray Chandler_, Jan 13 2006
%E a(14)-a(20) from _Robert Price_, Nov 25 2023
|
