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 A061333 #14 Feb 01 2016 02:53:07 %S A061333 409,4441,12841,15889,22751,30091,41809,55921,60889,77167,82183,99823, %T A061333 103561,110281,120391,127249,136471,139201,155671,157351,161881, %U A061333 164209,180361,180799,182839,183823,187711,191047,230929,250423,257263,272191 %N A061333 Primes with 21 as smallest positive primitive root. %H A061333 T. D. Noe, <a href="/A061333/b061333.txt">Table of n, a(n) for n=1..1000</a> %t A061333 Prime[ Select[ Range[24000], PrimitiveRoot[ Prime[ # ] ] == 21 & ] ] %t A061333 (* or *) %t A061333 Select[ Prime@Range@24000, PrimitiveRoot@# == 21 &] (* _Robert G. Wilson v_, May 11 2001 *) %Y A061333 Cf. A001918, A001126, A019348. %K A061333 nonn %O A061333 1,1 %A A061333 _Klaus Brockhaus_, Apr 25 2001