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 A114686 #16 Nov 21 2023 05:20:47
%S A114686 3659401,8453041,10319761,14155681,16391761,18094561,19616689,
%T A114686 20456329,21677041,22628929,27275161,32051881,34228489,37728601,
%U A114686 38884561,39191881,40101071,40167241,42163969,47931601,48461449,49460161,50389441,54932329,56219281,57590569
%N A114686 Primes with 71 as smallest positive primitive root.
%H A114686 Robert Price, <a href="/A114686/b114686.txt">Table of n, a(n) for n = 1..1366</a>
%t A114686 t={}; Do[ If[ PrimitiveRoot[ Prime@n] == 71, AppendTo[t, n]; Print@ Prime@n], {n, 3280000}]; Prime@t
%o A114686 (PARI) is(n)=if(n<72,return(0));for(k=2,70,if(znorder(Mod(k,n))==n-1,return(0)));znorder(Mod(71,n))==n-1&&isprime(n) \\ _Charles R Greathouse IV_, Jul 19 2011
%o A114686 (PARI) is(n)=isprime(n)&&lift(znprimroot(n))==71 \\ relies on implementation details, may not always work
%o A114686 \\ _Charles R Greathouse IV_, Jul 19 2011
%Y A114686 Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686.
%K A114686 nonn
%O A114686 1,1
%A A114686 _Robert G. Wilson v_, Dec 21 2005
%E A114686 a(23) and beyond from _Robert Price_, Nov 20 2023