|
%I #14 Mar 31 2014 04:08:04
%S 7,11,13,17,31,37,41,59,83,89,107,109,113,137,157,179,181,223,227,229,
%T 233,251,257,277,281,347,353,373,397,401,419,421,443,463,467,487,491,
%U 541,563,569,587,593,607,617,641,683,709,733,751,761,809,823,829,857,877,881
%N Primes with primitive root 24.
%H Vincenzo Librandi, <a href="/A019351/b019351.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>
%t pr=24; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%K nonn
%O 1,1
%A _David W. Wilson_
|
