STATUS
proposed
approved
proposed
approved
editing
proposed
Vincenzo Librandi, <a href="/A167801/b167801.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
_T. D. Noe (noe(AT)sspectra.com), _, Nov 12 2009
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
1,1
pr=-5; Select[Range[2, 2000], MultiplicativeOrder[pr, # ] == EulerPhi[ # ] &]
Cf. A105877 (primes with primitive root -5)
nonn
T. D. Noe (noe(AT)sspectra.com), Nov 12 2009
approved