[go: up one dir, main page]

login
A167792
Numbers with primitive root 3.
19
2, 4, 5, 7, 10, 14, 17, 19, 25, 29, 31, 34, 38, 43, 49, 50, 53, 58, 62, 79, 86, 89, 98, 101, 106, 113, 125, 127, 137, 139, 149, 158, 163, 173, 178, 197, 199, 202, 211, 223, 226, 233, 250, 254, 257, 269, 274, 278, 281, 283, 289, 293, 298, 317, 326, 331, 343, 346
OFFSET
1,1
LINKS
MATHEMATICA
pr=3; Select[Range[2, 2000], MultiplicativeOrder[pr, # ] == EulerPhi[ # ] &]
CROSSREFS
Cf. A019334 (primes with primitive root 3)
Sequence in context: A023181 A123065 A115334 * A035547 A018598 A018756
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 12 2009
STATUS
approved