A319803 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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