A240032 Numbers with primitive root 13.

2, 5, 10, 11, 19, 22, 25, 31, 37, 38, 41, 47, 50, 59, 62, 67, 71, 73, 74, 82, 83, 89, 94, 97, 109, 118, 121, 125, 134, 137, 142, 146, 149, 151, 166, 167, 178, 194, 197, 218, 227, 239, 241, 242, 250, 274, 281, 293, 298, 302, 307, 317, 334, 349, 353, 359, 361

Offset

1,1

Links

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

Mathematica

pr = 13; Select[Range[2, 600], MultiplicativeOrder[pr, #] == EulerPhi[#] &]
Join[{2, 5, 10, 11}, Select[Range[400], MemberQ[PrimitiveRootList[#], 13]&]] (* Harvey P. Dale, Apr 19 2023 *)

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), A240031 (r=-12), A240093 (r=-13).

Sequence in context: A258116 A324812 A032874 * A187792 A176356 A196168

Adjacent sequences: A240029 A240030 A240031 * A240033 A240034 A240035

Keyword

nonn,easy

Author

Vincenzo Librandi, Apr 01 2014

Status

approved