A319785 - OEIS

%I #20 Aug 07 2024 16:26:55

%S 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,

%T 35,35,45,35,45,45,62,33,51,51,63,51,63,63,75,51,63,63,75,63,75,75,93,

%U 51,63,63,75,63,75,75,93,63,75,75,93,75,93,93,126,65,99,99,119

%N a(n) = A073138(n) + A038573(n).

%C This sequence is different from A055944. For example, A055944(5) = 10 and a(5) = 9.

%H Seiichi Manyama, <a href="/A319785/b319785.txt">Table of n, a(n) for n = 0..8191</a>

%t Table[FromDigits[Reverse[#], 2] + FromDigits[#, 2] & [Sort[IntegerDigits[n, 2]]], {n, 0, 100}] (* _Paolo Xausa_, Aug 07 2024 *)

%o (PARI) a(n) = my(dn=binary(n)); fromdigits(vecsort(dn), 2) + fromdigits(vecsort(dn,,4), 2); \\ _Michel Marcus_, Sep 28 2018

%Y Base b: this sequence (b=2), A319803 (b=3), A319804 (b=4), A319805 (b=5), A319806 (b=6), A319807 (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).

%Y Cf. A038573, A055944, A073138.

%K nonn,base,look

%O 0,2

%A _Seiichi Manyama_, Sep 27 2018