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