%I #18 Aug 08 2024 02:35:33
%S 0,2,4,6,8,10,12,8,16,24,32,40,48,56,16,24,32,40,48,56,64,24,32,40,48,
%T 56,64,72,32,40,48,56,64,72,80,40,48,56,64,72,80,88,48,56,64,72,80,88,
%U 96,50,64,114,164,214,264,314,64,114,164,214,264,314,364,114,164,178,228
%N a(n) = A319724(n) + A319655(n).
%C This sequence is different from A055954.
%H Seiichi Manyama, <a href="/A319807/b319807.txt">Table of n, a(n) for n = 0..2400</a>
%t Table[FromDigits[Reverse[#], 7] + FromDigits[#, 7] & [Sort[IntegerDigits[n, 7]]], {n, 0, 100}] (* _Paolo Xausa_, Aug 07 2024 *)
%o (PARI) a(n) = my(nd=digits(n, 7)); fromdigits(vecsort(nd), 7) + fromdigits(vecsort(nd,,4), 7); \\ _Michel Marcus_, Sep 28 2018
%Y Base b: A319785 (b=2), A319803 (b=3), A319804 (b=4), A319805 (b=5), A319806 (b=6), this sequence (b=7), A319808 (b=8), A319747 (b=9), A052008 (b=10).
%Y Cf. A055954, A319655, A319724.
%K nonn,base,look
%O 0,2
%A _Seiichi Manyama_, Sep 28 2018