|
%I #13 Mar 22 2020 05:48:36
%S 0,1,69,2,24,70,9,3,38,25,13,71,66,10,93,4,30,39,96,26,78,14,86,72,48,
%T 67,7,11,91,94,84,5,82,31,33,40,56,97,35,27,45,79,42,15,62,87,58,73,
%U 18,49,99,68,23,8,37,12,65,92,29,95,77,85,47,6,90,83,81,32
%N Log base 2 (n) mod 101.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.
%H Georg Fischer, <a href="/A036181/b036181.txt">Table of n, a(n) for n = 1..100</a>
%p with (numtheory): [ seq(mlog(n, 2, 101), n=1..100) ] # _Georg Fischer_, Mar 08 2020
%t a[1]=0; a[n_]:=MultiplicativeOrder[2, 101, {n}]; Array[a, 100] (* _Vincenzo Librandi_, Mar 22 2020 *)
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_.
|
