close
login
A389826
a(n) = floor(n*A030101(n)/(n + A030101(n))).
1
0, 0, 1, 0, 2, 2, 3, 0, 4, 3, 5, 2, 5, 4, 7, 0, 8, 6, 10, 4, 10, 8, 12, 2, 10, 7, 13, 5, 12, 10, 15, 0, 16, 11, 20, 7, 19, 15, 23, 4, 19, 14, 23, 10, 22, 17, 26, 2, 20, 13, 25, 9, 23, 18, 28, 6, 23, 16, 28, 12, 26, 20, 31, 0, 32, 22, 39, 13, 37, 28, 43, 8, 36
OFFSET
1,5
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
Sequence in context: A035173 A263254 A257989 * A095201 A272143 A095058
KEYWORD
nonn,base
AUTHOR
Ctibor O. Zizka, Jan 12 2026
STATUS
approved