%I #10 Mar 13 2020 11:33:23
%S 0,12,1,24,83,13,8,36,2,95,74,25,22,20,84,48,5,14,99,107,9,86,41,37,
%T 54,34,3,32,89,96,50,60,75,17,91,26,67,111,23,7,94,21,47,98,85,53,31,
%U 49,16,66,6,46,52,15,45,44,100,101,71,108,102,62,10,72,105
%N Log base 3 (n) mod 113.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff
%H Georg Fischer, <a href="/A036185/b036185.txt">Table of n, a(n) for n = 1..112</a>
%p with (numtheory): seq(mlog(n, 3, 113), n=1..112); # _Georg Fischer_, Mar 09 2020
%t a[1]=0; a[n_]:=MultiplicativeOrder[3, 113, {n}]; Array[a, 112] (* _Vincenzo Librandi_, Mar 13 2020 *)
%K nonn,fini,full
%O 1,2
%A _N. J. A. Sloane_.
|