login
A240096
Numbers with primitive root 15.
10
2, 4, 13, 19, 23, 26, 29, 37, 38, 41, 46, 47, 58, 73, 74, 82, 83, 89, 94, 97, 101, 107, 139, 146, 149, 151, 157, 166, 167, 169, 178, 193, 194, 199, 202, 214, 227, 263, 269, 271, 278, 281, 298, 302, 313, 314, 334, 337, 338, 347, 361, 373, 379, 383, 386, 389
OFFSET
1,1
LINKS
MATHEMATICA
pr = 15; Select[Range[2, 500], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
Join[{2, 4, 13}, Select[Range[2, 400], PrimitiveRoot[#, 15]==15&]] (* Harvey P. Dale, Jun 30 2018 *)
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).
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).
Sequence in context: A018701 A070152 A176126 * A018761 A276118 A179114
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Apr 01 2014
STATUS
approved