%I #16 Mar 16 2020 06:18:34

%S 0,1,27,2,39,28,95,3,54,40,23,29,130,96,66,4,73,55,33,41,122,24,20,30,

%T 78,131,81,97,144,67,102,5,50,74,134,56,162,34,157,42,138,123,84,25,

%U 93,21,64,31,18,79,100,132,155,82,62,98,60,145,147,68,13,103

%N Log base 2 (n) mod 173.

%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.

%H Georg Fischer, <a href="/A036195/b036195.txt">Table of n, a(n) for n = 1..172</a>

%p with (numtheory): seq(mlog(n, 2, 173), n=1..172); # _Georg Fischer_, Mar 09 2020

%t a[1]=0; a[n_]:=MultiplicativeOrder[2, 173, {n}]; Array[a, 172] (* _Vincenzo Librandi_, Mar 15 2020 *)

%K nonn,fini,full

%O 1,3

%A _N. J. A. Sloane_