A036185 - OEIS

%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_.