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 A241048 #4 Apr 16 2014 18:00:14 %S A241048 2477,9173,10853,13877,14957,15413,22277,22613,24317,27653,30197, %T A241048 34877,37253,41117,41333,42437,42677,43973,48677,51413,55733,61613, %U A241048 62597,63773,66293,72533,73757,74093,76733,79397,79757,82997,86357,90173,92237,92333,95597 %N A241048 Primes having primitive roots 2, 3, 5, 7, 11, 13, and 17. %H A241048 T. D. Noe, <a href="/A241048/b241048.txt">Table of n, a(n) for n = 1..1000</a> %t A241048 fQ[p_, n_] := MultiplicativeOrder[p, n] == n - 1; Select[Prime[Range[10000]], fQ[2, #] && fQ[3, #] && fQ[5, #] && fQ[7, #] && fQ[11, #] && fQ[13, #] && fQ[17, #] &] %Y A241048 Cf. A001122, A019334, A019335, A019337, A019339, A019341, A019344, A213052. %K A241048 nonn %O A241048 1,1 %A A241048 _T. D. Noe_, Apr 16 2014