A019354 - OEIS

%I #16 Jan 17 2022 12:12:34

%S 5,11,13,17,23,41,43,67,71,73,79,89,101,107,173,179,181,191,229,257,

%T 263,269,293,313,331,347,353,359,379,397,409,431,433,443,461,463,487,

%U 491,499,509,521,571,577,593,599,659,661,677,683,733,739,743,751,769,773,797,827

%N Primes with primitive root 28.

%H Vincenzo Librandi, <a href="/A019354/b019354.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=28; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]

%t Join[{5,11,13,17,23},Select[Prime[Range[150]],MemberQ[ PrimitiveRootList[ #],28]&]] (* _Harvey P. Dale_, Jan 17 2022 *)

%K nonn

%O 1,1

%A _David W. Wilson_