A319807 a(n) = A319724(n) + A319655(n).

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, 56, 64, 72, 32, 40, 48, 56, 64, 72, 80, 40, 48, 56, 64, 72, 80, 88, 48, 56, 64, 72, 80, 88, 96, 50, 64, 114, 164, 214, 264, 314, 64, 114, 164, 214, 264, 314, 364, 114, 164, 178, 228

Offset

0,2

Comments

This sequence is different from A055954.

Links

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

Mathematica

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

Prog

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

Crossrefs

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).

Cf. A055954, A319655, A319724.

Sequence in context: A353026 A356431 A345444 * A055954 A379248 A366021

Adjacent sequences: A319804 A319805 A319806 * A319808 A319809 A319810

Keyword

nonn,base,look

Author

Seiichi Manyama, Sep 28 2018

Status

approved