%I #13 Mar 12 2020 07:09:16
%S 0,57,52,6,76,1,40,63,104,25,83,58,67,97,20,12,93,53,75,82,92,32,33,7,
%T 44,16,48,46,34,77,14,69,27,42,8,2,5,24,11,31,45,41,30,89,72,90,17,64,
%U 80,101,37,73,49,105,51,103,19,91,47,26,10,71,36,18,35,84
%N Log base 6 (n) mod 109.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.
%H Georg Fischer, <a href="/A036184/b036184.txt">Table of n, a(n) for n = 1..108</a>
%p with(numtheory): seq(mlog(n, 6, 109), n=1..108); # _Georg Fischer_, Mar 09 2020
%t a[1]=0; a[n_]:=MultiplicativeOrder[6, 109, {n}]; Array[a, 108] (* _Vincenzo Librandi_, Mar 11 2020 *)
%K nonn,fini,full
%O 1,2
%A _N. J. A. Sloane_.
|