OFFSET
1,5
LINKS
Ctibor O. Zizka, Scatter Plot n vs. a(n) for n = 1 to 17000
FORMULA
For k >= 1:
a(2^k - 1) = 2^(k - 1) - 1.
a(2^k) = 0.
a(2^k + 1) = 2^(k - 1).
MATHEMATICA
a[n_] := With[{r = IntegerReverse[n, 2]}, Floor[n*r/(n+r)]]; Array[a, 100] (* Amiram Eldar, Jan 12 2026 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ctibor O. Zizka, Jan 12 2026
STATUS
approved
