A036197 - OEIS

%I #11 Mar 16 2020 12:03:35

%S 0,1,56,2,156,57,15,3,112,157,62,58,164,16,32,4,175,113,135,158,71,63,

%T 53,59,132,165,168,17,48,33,99,5,118,176,171,114,26,136,40,159,83,72,

%U 20,64,88,54,13,60,30,133,51,166,97,169,38,18,11,49,36,34,125

%N Log base 2 (n) mod 181.

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

%H Georg Fischer, <a href="/A036197/b036197.txt">Table of n, a(n) for n = 1..180</a>

%p with (numtheory): seq(mlog(n, 2, 181), n=1..180); # _Georg Fischer_, Mar 10 2020

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

%K nonn,fini,full

%O 1,3

%A _N. J. A. Sloane_.