|
%I #15 Aug 21 2021 07:04:55
%S 0,1,50,2,6,51,18,3,42,7,25,52,45,19,56,4,40,43,38,8,10,26,15,53,12,
%T 46,34,20,28,57,49,5,17,41,24,44,55,39,37,9,14,11,33,27,48,16,23,54,
%U 36,13,32,47,22,35,31,21,30,29
%N Log base 2 (n) mod 59.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.
%p a:= n-> numtheory[mlog](n, 2, 59):
%p seq(a(n), n=1..58); # _Alois P. Heinz_, Aug 21 2021
%t a[1]=0; a[n_]:=MultiplicativeOrder[2, 59, {n}]; Array[a, 58] (* _Vincenzo Librandi_, Apr 03 2020 *)
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_
|
