|
%I #15 Mar 10 2020 14:58:37
%S 0,1,41,2,86,42,50,3,82,87,76,43,64,51,127,4,107,83,61,88,91,77,27,44,
%T 34,65,123,52,94,128,56,5,117,108,136,84,80,62,105,89,32,92,115,78,30,
%U 28,98,45,100,35,10,66,47,124,24,53,102,95,21,129,37,57,132
%N Log base 2 (n) mod 139.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.
%H Georg Fischer, <a href="/A036189/b036189.txt">Table of n, a(n) for n = 1..138</a>
%p with (numtheory): seq(mlog(n, 2, 139), n=1..138); # _Georg Fischer_, Mar 09 2020
%t a[1]=0; a[n_]:=MultiplicativeOrder[2, 139, {n}]; Array[a, 138] (* _Vincenzo Librandi_, Mar 10 2020 *)
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_.
|
