%I #10 Mar 22 2020 02:40:21
%S 0,26,15,12,22,1,39,38,30,8,3,27,31,25,37,24,33,16,9,34,14,29,36,13,4,
%T 17,5,11,7,23,28,10,18,19,21,2,32,35,6,20
%N Log base 6 (n) mod 41.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.
%t a[1]=0; a[n_]:=MultiplicativeOrder[6, 41, {n}]; Array[a, 40] (* _Vincenzo Librandi_, Mar 22 2020 *)
%K nonn,fini,full
%O 1,2
%A _N. J. A. Sloane_.
|