A319807 - OEIS

%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