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 A061330 #14 Feb 01 2016 03:01:43 %S A061330 53173,87541,100621,124909,137341,164341,192611,226549,230101,241861, %T A061330 260317,262909,288661,309541,352309,371029,425701,458701,461891, %U A061330 463741,476029,490741,491461,562021,569869,627661,640069,661621,664141,690541 %N A061330 Primes with 18 as smallest positive primitive root. %H A061330 T. D. Noe, <a href="/A061330/b061330.txt">Table of n, a(n) for n=1..1000</a> %t A061330 Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 18 & ] ] %t A061330 (* or *) %t A061330 Select[ Prime@Range@100000, PrimitiveRoot@# == 18 &] (* _Robert G. Wilson v_ *) %Y A061330 Cf. A001918, A001126, A019345. %K A061330 nonn %O A061330 1,1 %A A061330 _Klaus Brockhaus_, Apr 25 2001 %E A061330 More terms from _Robert G. Wilson v_, May 11 2001