login
Numbers with primitive root 14.
12

%I #8 Apr 01 2014 05:50:28

%S 3,9,17,19,23,27,29,53,59,73,81,83,89,97,109,127,131,149,151,227,239,

%T 241,243,251,257,263,277,283,289,307,313,317,353,359,361,373,389,419,

%U 421,431,433,467,487,521,529,541,557,563,587,593,599,601,613,631

%N Numbers with primitive root 14.

%H Vincenzo Librandi, <a href="/A240094/b240094.txt">Table of n, a(n) for n = 1..1000</a>

%t pr = 14; Select[Range[2, 700], MultiplicativeOrder[pr, #] == EulerPhi[#] &]

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

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

%K nonn,easy

%O 1,1

%A _Vincenzo Librandi_, Apr 01 2014