A019363 - OEIS

%I #16 Aug 04 2023 13:56:56

%S 3,5,7,23,47,59,89,97,101,107,113,149,157,179,193,197,199,227,229,257,

%T 263,271,311,359,379,389,397,401,433,449,479,503,521,557,563,569,601,

%U 613,641,647,653,659,673,683,701,709,719,727,823,827,853,857,907,919,953,967

%N Primes with primitive root 38.

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

%t Join[{3,5,7,23},Select[Prime[Range[200]],PrimitiveRoot[#,38]==38&]] (* _Harvey P. Dale_, Aug 04 2023 *)

%K nonn

%O 1,1

%A _David W. Wilson_