%I #14 Mar 12 2020 07:21:58
%S 0,1,72,2,46,73,96,3,14,47,56,74,18,97,118,4,43,15,35,48,38,57,23,75,
%T 92,19,86,98,51,119,29,5,128,44,12,16,41,36,90,49,126,39,124,58,60,24,
%U 105,76,62,93,115,20,26,87,102,99,107,52,82,120,78,30,110,6
%N Log base 2 (n) mod 131.
%D I. M. Vinogradov, Elements of Number Theory, p. 220ff.
%H Georg Fischer, <a href="/A036187/b036187.txt">Table of n, a(n) for n = 1..130</a>
%p with(numtheory): seq(mlog(n, 2, 131), n=1..130); # _Georg Fischer_, Mar 09 2020
%t a[1]=0; a[n_]:=MultiplicativeOrder[2, 131, {n}]; Array[a, 130] (* _Vincenzo Librandi_, Mar 10 2020 *)
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_
|