%I A019383
%S A019383 2,3,7,13,19,37,61,71,73,79,89,97,101,107,109,113,149,167,173,229,233,
%T A019383 239,251,263,269,271,307,311,313,331,349,359,383,397,401,439,457,479,487,
%U A019383 491,509,541,569,599,607,619,631,643,647,701,727,743,769,773,787,797,809
%N A019383 Primes with primitive root 59.
%H A019383 <a href="Sindx_Pri.html#primes_root">Index entries for primes by primitive 
               root</a>
%t A019383 pr=59; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%Y A019383 Sequence in context: A013645 A130272 A038940 this_sequence A156300 A067834 
               A070754
%Y A019383 Adjacent sequences: A019380 A019381 A019382 this_sequence A019384 A019385 
               A019386
%K A019383 nonn
%O A019383 1,1
%A A019383 David W. Wilson (davidwwilson(AT)comcast.net)