|
%I #5 Mar 30 2014 06:49:21
%S 2,3,5,6,9,10,13,17,18,26,27,31,34,41,47,54,59,61,62,81,82,83,89,94,
%T 97,101,103,118,122,131,139,162,166,167,169,173,178,194,199,202,206,
%U 227,229,241,243,251,257,262,269,271,278,283,289,293,307,334,338,346,349
%N Numbers with primitive root -7.
%H Vincenzo Librandi, <a href="/A167803/b167803.txt">Table of n, a(n) for n = 1..1000</a>
%t pr=-7; Select[Range[2,2000], MultiplicativeOrder[pr,# ] == EulerPhi[ # ] &]
%Y Cf. A105879 (primes with primitive root -7)
%K nonn
%O 1,1
%A _T. D. Noe_, Nov 12 2009
|
