A319803 a(n) = A319651(n) + A038574(n).

0, 2, 4, 4, 8, 12, 8, 12, 16, 10, 16, 26, 16, 26, 36, 26, 36, 42, 20, 26, 32, 26, 36, 42, 32, 42, 52, 28, 40, 68, 40, 52, 80, 68, 80, 92, 40, 52, 80, 52, 80, 108, 80, 108, 120, 68, 80, 92, 80, 108, 120, 92, 120, 132, 56, 68, 80, 68, 80, 92, 80, 92, 104, 68, 80, 92, 80, 108, 120, 92, 120, 132, 80, 92

Offset

0,2

Comments

This sequence is different from A055946.

Links

Seiichi Manyama, Table of n, a(n) for n = 0..6560

Mathematica

Table[FromDigits[Reverse[#], 3] + FromDigits[#, 3] & [Sort[IntegerDigits[n, 3]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)

Prog

(PARI) a(n) = my(nd=digits(n, 3)); fromdigits(vecsort(nd), 3) + fromdigits(vecsort(nd, , 4), 3); \\ Michel Marcus, Sep 28 2018

Crossrefs

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

Cf. A055946, A038574, A319651.

Sequence in context: A223317 A027131 A338986 * A055946 A130124 A265417

Adjacent sequences: A319800 A319801 A319802 * A319804 A319805 A319806

Keyword

nonn,look,base

Author

Seiichi Manyama, Sep 28 2018

Status

approved