A036173 Log base 2 (n) mod 61.
0, 1, 6, 2, 22, 7, 49, 3, 12, 23, 15, 8, 40, 50, 28, 4, 47, 13, 26, 24, 55, 16, 57, 9, 44, 41, 18, 51, 35, 29, 59, 5, 21, 48, 11, 14, 39, 27, 46, 25, 54, 56, 43, 17, 34, 58, 20, 10, 38, 45, 53, 42, 33, 19, 37, 52, 32, 36, 31, 30
Offset: 1
References
- I. M. Vinogradov, Elements of Number Theory, p. 223.
Links
- I. M. Vinogradov, Elements of Number Theory, Translation of 5th revised edition, Dover Publications Inc., 1954.
Crossrefs
Cf. A054503.
Programs
-
Maple
a:= n-> numtheory[mlog](n, 2, 61): seq(a(n), n=1..60); # Alois P. Heinz, Aug 21 2021
-
Mathematica
a[1]=0; a[n_]:=MultiplicativeOrder[2, 61, {n}]; Array[a, 60] (* Vincenzo Librandi, Mar 12 2020 *)
Formula
Row n=18 of T(n,k) in A054503. - Georg Fischer, Jan 19 2020
Extensions
a(59)-a(60) from Georg Fischer, Jan 19 2020