OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..8191
MATHEMATICA
Table[FromDigits[Reverse[#], 2] + FromDigits[#, 2] & [Sort[IntegerDigits[n, 2]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
PROG
(PARI) a(n) = my(dn=binary(n)); fromdigits(vecsort(dn), 2) + fromdigits(vecsort(dn, , 4), 2); \\ Michel Marcus, Sep 28 2018
CROSSREFS
KEYWORD
AUTHOR
Seiichi Manyama, Sep 27 2018
STATUS
approved