A240101 Numbers with primitive root 17.

2, 3, 5, 6, 7, 10, 11, 14, 22, 23, 25, 31, 37, 41, 46, 49, 50, 61, 62, 74, 82, 97, 98, 107, 113, 121, 122, 125, 131, 139, 167, 173, 193, 194, 197, 211, 214, 226, 227, 233, 242, 250, 262, 269, 277, 278, 283, 311, 313, 317, 334, 343, 346, 347, 367, 379, 386

Offset: 1

Author

Vincenzo Librandi, Apr 01 2014

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. numbers with positive primitive root r: A167791 (r=2), A167792 (r=3), A167793 (r=5), A167794 (r=6), A167795 (r=7), A167796 (r=8), A167797 (r=10), A240028 (r=11), A240030 (r=12), A240032 (r=13), A240094 (r=14), A240096 (r=15).

Cf. numbers with negative primitive root r: A167798 (r=-2), A167799 (r=-3), A167800 (r=-4), A167801 (r=-5), A167802 (r=-6), A167803 (r=-7), A167804 (r=-8), A167805 (r=-9), A167806 (r=-10), A240029 (r=-11), A240031 (r=-12), A240093 (r=-13), A240095 (r=-14), A240097 (r=-15), A240100 (r=-17).

Programs

Mathematica

pr = 17; Select[Range[2, 400], MultiplicativeOrder[pr, #] == EulerPhi[#] &]