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