A167792 Numbers with primitive root 3.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A167789 A167790 A167791 * A167793 A167794 A167795

Keyword

nonn

Author

T. D. Noe, Nov 12 2009

Status

approved