%I #14 Aug 21 2021 07:05:52
%S 0,1,6,2,22,7,49,3,12,23,15,8,40,50,28,4,47,13,26,24,55,16,57,9,44,41,
%T 18,51,35,29,59,5,21,48,11,14,39,27,46,25,54,56,43,17,34,58,20,10,38,
%U 45,53,42,33,19,37,52,32,36,31,30
%N Log base 2 (n) mod 61.
%D I. M. Vinogradov, Elements of Number Theory, p. 223.
%H I. M. Vinogradov, <a href="https://isidore.co/calibre/get/pdf/4459">Elements of Number Theory</a>, Translation of 5th revised edition, Dover Publications Inc., 1954.
%F Row n=18 of T(n,k) in A054503. - _Georg Fischer_, Jan 19 2020
%p a:= n-> numtheory[mlog](n, 2, 61):
%p seq(a(n), n=1..60); # _Alois P. Heinz_, Aug 21 2021
%t a[1]=0; a[n_]:=MultiplicativeOrder[2, 61, {n}]; Array[a, 60] (* _Vincenzo Librandi_, Mar 12 2020 *)
%Y Cf. A054503.
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_.
%E a(59)-a(60) from _Georg Fischer_, Jan 19 2020