login
A240101
Numbers with primitive root 17.
5
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,1
LINKS
MATHEMATICA
pr = 17; Select[Range[2, 400], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
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).
Sequence in context: A119988 A087005 A302597 * A032892 A031941 A043089
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Apr 01 2014
STATUS
approved