login
A167800
Numbers with primitive root -4.
19
3, 7, 9, 11, 19, 23, 27, 47, 49, 59, 67, 71, 79, 81, 83, 103, 107, 121, 131, 139, 163, 167, 179, 191, 199, 211, 227, 239, 243, 263, 271, 311, 343, 347, 359, 361, 367, 379, 383, 419, 443, 463, 467, 479, 487, 491, 503, 523, 529, 547, 563, 587, 599, 607, 619, 647
OFFSET
1,1
LINKS
MATHEMATICA
pr=-4; Select[Range[2, 2000], MultiplicativeOrder[pr, # ] == EulerPhi[ # ] &]
CROSSREFS
Cf. A105876 (primes with primitive root -4)
Sequence in context: A004614 A112398 A197504 * A270834 A192628 A336655
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 12 2009
STATUS
approved