A240100 Numbers with primitive root -17.

2, 4, 5, 10, 19, 25, 37, 38, 41, 43, 47, 50, 59, 61, 67, 74, 82, 83, 86, 94, 97, 103, 113, 118, 122, 125, 127, 134, 151, 166, 173, 179, 191, 193, 194, 197, 206, 226, 233, 239, 250, 251, 254, 263, 269, 271, 277, 302, 313, 317, 331, 346, 358, 359, 361, 382

Offset

1,1

Links

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

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), A240101 (r=17).

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: A046430 A133040 A018424 * A326156 A000675 A005018

Adjacent sequences: A240097 A240098 A240099 * A240101 A240102 A240103

Keyword

nonn,easy

Author

Vincenzo Librandi, Apr 01 2014

Status

approved