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