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