|
%I
%S 2,3,13,17,23,29,31,41,47,59,67,71,73,101,103,109,149,163,173,179,197,
%T 223,233,251,277,281,293,331,367,373,383,419,443,461,463,467,487,499,
%U 557,569,587,593,599,601,613,619,643,647,673,677,683,701,719,761,769,809,821
%N Primes with primitive root 11.
%H <a href="/index/Pri#primes_root">Index entries for primes by primitive root</a>
%t pr=11; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
%Y Cf. A071566.
%K nonn
%O 1,1
%A _David W. Wilson_
|
