%I #19 Dec 02 2019 21:36:02
%S 2,5,13,19,23,41,47,53,59,61,71,83,101,103,107,109,113,127,131,137,
%T 163,167,197,223,227,229,233,263,307,313,337,359,401,409,419,431,439,
%U 467,479,491,521,523,541,571,593,607,619,653,659,673,677,701,719,743,751,809,827
%N Primes with primitive root 67.
%C To allow primes less than the specified primitive root m (here, 67) to be included, we use the essentially equivalent definition "Primes p such that the multiplicative order of m mod p is p-1". - _N. J. A. Sloane_, Dec 02 2019
%H Vincenzo Librandi, <a href="/A019390/b019390.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 Select[Prime[Range[200]], MultiplicativeOrder[67, #] == # - 1 &]
%K nonn
%O 1,1
%A _David W. Wilson_
|