A019367 Primes with primitive root 42.

5, 23, 31, 37, 59, 71, 73, 83, 101, 109, 137, 163, 173, 191, 223, 227, 233, 239, 241, 251, 263, 269, 271, 281, 293, 331, 359, 367, 373, 379, 401, 409, 419, 431, 449, 461, 467, 499, 509, 563, 569, 587, 599, 601, 613, 617, 677, 727, 739, 757, 769, 773, 797, 809, 863, 877

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Index entries for primes by primitive root

Programs

Mathematica

pr=42; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{5,23,31,37},Select[Prime[Range[200]],MemberQ[ PrimitiveRootList[ #],42]&]] (* Harvey P. Dale, Nov 15 2014 *)