A167801 Numbers with primitive root -5.
2, 4, 11, 17, 19, 22, 34, 37, 38, 53, 59, 73, 74, 79, 97, 106, 113, 118, 121, 131, 137, 139, 146, 151, 157, 158, 173, 179, 193, 194, 197, 226, 233, 239, 242, 257, 262, 274, 277, 278, 289, 293, 302, 311, 314, 317, 331, 346, 353, 358, 359, 361, 373, 386, 394, 397
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A105877 (primes with primitive root -5)
Programs
-
Mathematica
pr=-5; Select[Range[2,2000], MultiplicativeOrder[pr,# ] == EulerPhi[ # ] &]