A240030 Numbers with primitive root 12.

5, 7, 17, 25, 31, 41, 43, 49, 53, 67, 101, 103, 113, 125, 127, 137, 139, 149, 151, 163, 173, 197, 223, 257, 269, 281, 283, 289, 293, 317, 343, 353, 367, 379, 389, 401, 449, 461, 509, 523, 547, 557, 569, 571, 593, 607, 617, 619, 625, 631, 641, 653, 691

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

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

Sequence in context: A128352 A025085 A175238 * A032412 A114970 A048710

Adjacent sequences: A240027 A240028 A240029 * A240031 A240032 A240033

Keyword

nonn,easy

Author

Vincenzo Librandi, Apr 01 2014

Status

approved