%I A019338
%S A019338 3,5,11,29,53,59,83,101,107,131,149,173,179,197,227,269,293,317,347,389,
%T A019338 419,443,461,467,491,509,557,563,587,653,659,677,701,773,797,821,827,941,
%U A019338 947,1019,1061,1091,1109,1187,1229,1259,1277,1283,1301,1307,1373,1427
%N A019338 Primes with primitive root 8.
%H A019338 <a href="Sindx_Pri.html#primes_root">Index entries for primes by primitive 
               root</a>
%t A019338 pr=8; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%Y A019338 Sequence in context: A093706 A109945 A045536 this_sequence A046134 A080443 
               A057735
%Y A019338 Adjacent sequences: A019335 A019336 A019337 this_sequence A019339 A019340 
               A019341
%K A019338 nonn
%O A019338 1,1
%A A019338 David W. Wilson (davidwwilson(AT)comcast.net)