A019363 Primes with primitive root 38.

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

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Index entries for primes by primitive root

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

Adjacent sequences: A019360 A019361 A019362 * A019364 A019365 A019366

Keyword

nonn

Author

David W. Wilson

Status

approved