%I A019390
%S A019390 2,5,13,19,23,41,47,53,59,61,71,83,101,103,107,109,113,127,131,137,163,
%T A019390 167,197,223,227,229,233,263,307,313,337,359,401,409,419,431,439,467,479,
%U A019390 491,521,523,541,571,593,607,619,653,659,673,677,701,719,743,751,809,827
%N A019390 Primes with primitive root 67.
%H A019390 <a href="Sindx_Pri.html#primes_root">Index entries for primes by primitive 
               root</a>
%t A019390 pr=67; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%Y A019390 Sequence in context: A045365 A104491 A038950 this_sequence A073770 A077545 
               A069943
%Y A019390 Adjacent sequences: A019387 A019388 A019389 this_sequence A019391 A019392 
               A019393
%K A019390 nonn
%O A019390 1,1
%A A019390 David W. Wilson (davidwwilson(AT)comcast.net)