login
A019363
Primes with primitive root 38.
2
3, 5, 7, 23, 47, 59, 89, 97, 101, 107, 113, 149, 157, 179, 193, 197, 199, 227, 229, 257, 263, 271, 311, 359, 379, 389, 397, 401, 433, 449, 479, 503, 521, 557, 563, 569, 601, 613, 641, 647, 653, 659, 673, 683, 701, 709, 719, 727, 823, 827, 853, 857, 907, 919, 953, 967
OFFSET
1,1
MATHEMATICA
pr=38; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{3, 5, 7, 23}, Select[Prime[Range[200]], PrimitiveRoot[#, 38]==38&]] (* Harvey P. Dale, Aug 04 2023 *)
CROSSREFS
Sequence in context: A101773 A057182 A038916 * A288890 A120384 A216124
KEYWORD
nonn
STATUS
approved