%I #18 Jan 31 2018 12:35:10
%S 2,3,11,17,19,41,43,47,73,79,89,97,101,113,127,131,137,163,191,211,
%T 229,251,263,269,293,307,311,317,331,337,359,389,409,433,443,449,461,
%U 467,479,491,503,563,569,599,601,607,653,659,677,739,743,751,769,773,797,809,827
%N Primes with primitive root 29.
%H Vincenzo Librandi, <a href="/A019355/b019355.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[29, #] == # - 1 &]
%K nonn,easy
%O 1,1
%A _David W. Wilson_
|