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 A061732 #13 Feb 01 2016 02:53:34 %S A061732 133321,140351,151009,160081,191161,224041,277747,282481,298681, %T A061732 344161,485161,509521,570001,669241,675601,700129,784351,859751, %U A061732 874681,1014121,1068721,1222831,1613041,1618387,1794841,1795561,1868231 %N A061732 Primes with 28 as smallest positive primitive root. %H A061732 Vincenzo Librandi, <a href="/A061732/b061732.txt">Table of n, a(n) for n = 1..590</a> %t A061732 Prime[ Select[ Range[150000], PrimitiveRoot[ Prime[ # ] ] == 28 & ] ] %t A061732 (* or *) %t A061732 Select[ Prime@Range@150000, PrimitiveRoot@# == 28 &] (* _Robert G. Wilson v_, May 11 2001 *) %Y A061732 Cf. A001918, A001126, A019354. %K A061732 nonn %O A061732 1,1 %A A061732 _Klaus Brockhaus_, May 06 2001 %E A061732 More terms from _Robert G. Wilson v_, May 11 2001