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 A114664 #12 Nov 20 2023 00:03:31 %S A114664 275641,374761,534601,568921,687961,877321,931921,1062311,1112471, %T A114664 1126441,1360631,1371841,1373761,1736881,2074801,2097169,2147473, %U A114664 2152921,2202601,2214001,2263801,2427769,2616071,2652841,2698921,2759951,3027361,3244921,3265441 %N A114664 Primes with 47 as smallest positive primitive root. %H A114664 Robert Price, <a href="/A114664/b114664.txt">Table of n, a(n) for n = 1..10000</a> %t A114664 (* first load *) << NumberTheory`NumberTheoryFunctions` (* then *) Select[ Prime@Range@220000, PrimitiveRoot@# == 47 &] %t A114664 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 A114664 Cf. A001122-A001126, A061323-A061335, A061730-A061741, A114657-A114686. %K A114664 nonn %O A114664 1,1 %A A114664 _Robert G. Wilson v_, Dec 21 2005 %E A114664 a(26)-a(29) from _Robert Price_, Nov 19 2023