A019398 Primes with primitive root 75.

2, 7, 17, 31, 41, 53, 79, 89, 101, 103, 113, 137, 149, 163, 173, 197, 199, 211, 223, 233, 257, 269, 271, 281, 283, 293, 307, 317, 353, 379, 389, 401, 439, 449, 463, 487, 499, 509, 523, 547, 557, 569, 593, 617, 619, 631, 641, 653, 677, 691, 727, 739, 773, 787, 797, 809

Offset

1,1

Links

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

Index entries for primes by primitive root

Mathematica

pr=75; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{2, 7, 17, 31, 41, 53}, Select[Prime[Range[200]], MemberQ[ PrimitiveRootList[ #], 75]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 15 2020 *)

Crossrefs

Sequence in context: A024920 A091313 A049554 * A086513 A166381 A083723

Adjacent sequences: A019395 A019396 A019397 * A019399 A019400 A019401

Keyword

nonn

Author

David W. Wilson

Status

approved