A036174 - OEIS

%I #15 Aug 21 2021 07:06:41

%S 0,1,39,2,15,40,23,3,12,16,59,41,19,24,54,4,64,13,10,17,62,60,28,42,

%T 30,20,51,25,44,55,47,5,32,65,38,14,22,11,58,18,53,63,9,61,27,29,50,

%U 43,46,31,37,21,57,52,8,26,49,45,36,56,7,48,35,6,34,33

%N Log base 2 (n) mod 67.

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

%p a:= n-> numtheory[mlog](n, 2, 67):

%p seq(a(n), n=1..66);  # _Alois P. Heinz_, Aug 21 2021

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

%K nonn,fini,full

%O 1,3

%A _N. J. A. Sloane_.

%E a(59)-a(66) from _Giovanni Resta_, Mar 20 2013