OFFSET
1,7
COMMENTS
FORMULA
EXAMPLE
MATHEMATICA
a[n_] := IntegerExponent[(n/2^IntegerExponent[n, 2] + 1)/2, 2]; Array[a, 100] (* Amiram Eldar, Sep 30 2020 *)
PROG
(PARI) a(n) = valuation(n>>valuation(n, 2)+1, 2) - 1; \\ Kevin Ryde, Apr 06 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Peter Munn, Sep 23 2020
STATUS
approved