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