This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A114665 #19 Apr 11 2025 10:47:19 %S A114665 823766851,1203424471,1647646771,2539428211,4100784871,4492676371, %T A114665 5183970931,6326736151,6330402751,8251729531,8735517211,10570534171, %U A114665 11212271071,12478723111,13609280431,16631896051,18781331911,18884910871,20211833071,20568043471,20572400551 %N A114665 Primes with 48 as smallest positive primitive root. %H A114665 Robert Price, <a href="/A114665/b114665.txt">Table of n, a(n) for n = 1..92</a> %t A114665 t = {}; Do[ If[ PrimitiveRoot[ Prime@n] == 48, AppendTo[t, n]; Print@Prime@n], {n, 235000000}]; Prime@t %o A114665 (PARI) is(k) = isprime(k) && znprimroot(k)==48; \\ _Jinyuan Wang_, Apr 09 2025 %Y A114665 Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686. %K A114665 nonn,hard %O A114665 1,1 %A A114665 _Robert G. Wilson v_, Dec 21 2005 %E A114665 a(7)-a(13) from _Ray Chandler_, Jan 13 2006 %E A114665 a(14)-a(21) from _Robert Price_, Nov 25 2023