OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)
FORMULA
MATHEMATICA
a[n_] := Module[{e = IntegerExponent[n, 2]}, e + MultiplicativeOrder[2, n/2^e]]; Array[a, 100] (* Amiram Eldar, Aug 25 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Henry Bottomley, Apr 20 2000
EXTENSIONS
Definition improved by T. D. Noe, Jul 21 2008
STATUS
approved