login
A240028
Numbers with primitive root 11.
18
2, 3, 4, 6, 9, 13, 17, 18, 23, 26, 27, 29, 31, 34, 41, 46, 47, 54, 58, 59, 62, 67, 71, 73, 81, 82, 94, 101, 103, 109, 118, 134, 142, 146, 149, 162, 163, 169, 173, 179, 197, 202, 206, 218, 223, 233, 243, 251, 277, 281, 289, 293, 298, 326, 331, 338, 346, 358
OFFSET
1,1
LINKS
MATHEMATICA
pr = 11; 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).
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).
Sequence in context: A056751 A189035 A137446 * A097557 A175848 A240079
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Mar 31 2014
STATUS
approved