A240031 Numbers with primitive root -12.

5, 17, 23, 25, 41, 47, 53, 59, 71, 83, 101, 107, 113, 125, 131, 137, 149, 167, 173, 179, 191, 197, 227, 239, 251, 257, 263, 269, 281, 289, 293, 311, 317, 347, 353, 359, 383, 389, 401, 419, 443, 449, 461, 467, 479, 503, 509, 529, 557, 563, 569, 587, 593

Offset

1,1

Links

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

Mathematica

pr = -12; Select[Range[2, 700], 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).

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

Sequence in context: A031270 A022141 A322985 * A260427 A091209 A307471

Adjacent sequences: A240028 A240029 A240030 * A240032 A240033 A240034

Keyword

nonn,easy

Author

Vincenzo Librandi, Apr 01 2014

Status

approved