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 A241046 #4 Apr 16 2014 18:00:32 %S A241046 173,293,677,2083,2477,3533,3797,4133,4157,4373,4603,4637,5477,5717, %T A241046 5923,6173,7013,9173,9533,9677,10853,11587,12437,13037,13397,13613, %U A241046 13877,14717,14957,15077,15413,16253,17093,17573,17597,18413,18773,18917,19157,19997 %N A241046 Primes having primitive roots 2, 3, 5, 7, and 11. %H A241046 T. D. Noe, <a href="/A241046/b241046.txt">Table of n, a(n) for n = 1..1000</a> %t A241046 fQ[p_, n_] := MultiplicativeOrder[p, n] == n - 1; Select[Prime[Range[2300]], fQ[2, #] && fQ[3, #] && fQ[5, #] && fQ[7, #] && fQ[11, #] &] %Y A241046 Cf. A001122, A001123, A001124, A001126, A019339, A213052. %K A241046 nonn %O A241046 1,1 %A A241046 _T. D. Noe_, Apr 16 2014