A019337 Primes with primitive root 7.
2, 5, 11, 13, 17, 23, 41, 61, 67, 71, 79, 89, 97, 101, 107, 127, 151, 163, 173, 179, 211, 229, 239, 241, 257, 263, 269, 293, 347, 349, 359, 379, 397, 431, 433, 443, 461, 491, 499, 509, 521, 547, 577, 593, 599, 601, 631, 659, 677, 683, 733, 739, 743, 761, 773, 797, 823
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Index entries for primes by primitive root
Crossrefs
Cf. A167795.
Programs
-
Mathematica
pr=7; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Comments