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 A061730 #15 Feb 01 2016 02:53:23 %S A061730 533821,567631,672181,843781,1035301,1512421,1929061,2260501,2839621, %T A061730 2894431,2896741,4466221,5428231,5970511,6170911,9340501,9730711, %U A061730 9920821,10635661,10684759,10720711,10870471,11425261,11591581 %N A061730 Primes with 24 as smallest positive primitive root. %H A061730 Vincenzo Librandi, <a href="/A061730/b061730.txt">Table of n, a(n) for n = 1..225</a> %t A061730 Prime[ Select[ Range[ 10^6], PrimitiveRoot[ Prime[ # ] ] == 24 & ] ] %t A061730 (* or *) %t A061730 Select[ Prime@Range@1000000, PrimitiveRoot@# == 24 &] (* _Robert G. Wilson v_, May 11 2001 *) %o A061730 (PARI) is(n)=if(n<9||!isprime(n), return(0)); for(k=2,23, if(znorder(Mod(k,n))==n-1, return(0))); znorder(Mod(24,n))==n-1 \\ _Charles R Greathouse IV_, Apr 28 2015 %Y A061730 Cf. A001918, A001126, A019351. %K A061730 nonn %O A061730 1,1 %A A061730 _Klaus Brockhaus_, May 06 2001 %E A061730 More terms from _Robert G. Wilson v_, May 11 2001