A240094 Numbers with primitive root 14.

3, 9, 17, 19, 23, 27, 29, 53, 59, 73, 81, 83, 89, 97, 109, 127, 131, 149, 151, 227, 239, 241, 243, 251, 257, 263, 277, 283, 289, 307, 313, 317, 353, 359, 361, 373, 389, 419, 421, 431, 433, 467, 487, 521, 529, 541, 557, 563, 587, 593, 599, 601, 613, 631

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).

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).

Programs

Mathematica

pr = 14; Select[Range[2, 700], MultiplicativeOrder[pr, #] == EulerPhi[#] &]