%I #11 Mar 13 2020 10:07:56
%S 0,72,1,18,87,73,115,90,2,33,68,19,94,61,88,36,38,74,84,105,116,14,
%T 121,91,48,40,3,7,113,34,46,108,69,110,76,20,98,30,95,51,80,62,71,86,
%U 89,67,60,37,104,120,39,112,107,75,29,79,85,59,119,106,78,118
%N Log base 3 (n) mod 127.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff
%H Georg Fischer, <a href="/A036186/b036186.txt">Table of n, a(n) for n = 1..126</a>
%p with(numtheory): seq(mlog(n, 3, 127), n=1..126); # _Georg Fischer_, Mar 09 2020
%t a[1]=0; a[n_]:=MultiplicativeOrder[3, 127, {n}]; Array[a, 126] (* _Vincenzo Librandi_, Mar 13 2020 *)
%K nonn,fini,full
%O 1,2
%A _N. J. A. Sloane_.
|