A319785 a(n) = A073138(n) + A038573(n).
0, 2, 3, 6, 5, 9, 9, 14, 9, 15, 15, 21, 15, 21, 21, 30, 17, 27, 27, 35, 27, 35, 35, 45, 27, 35, 35, 45, 35, 45, 45, 62, 33, 51, 51, 63, 51, 63, 63, 75, 51, 63, 63, 75, 63, 75, 75, 93, 51, 63, 63, 75, 63, 75, 75, 93, 63, 75, 75, 93, 75, 93, 93, 126, 65, 99, 99, 119
Offset: 0
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..8191
Crossrefs
Programs
-
Mathematica
Table[FromDigits[Reverse[#], 2] + FromDigits[#, 2] & [Sort[IntegerDigits[n, 2]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
-
PARI
a(n) = my(dn=binary(n)); fromdigits(vecsort(dn), 2) + fromdigits(vecsort(dn,,4), 2); \\ Michel Marcus, Sep 28 2018
Comments