login
A319807
a(n) = A319724(n) + A319655(n).
7
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
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).
Sequence in context: A353026 A356431 A345444 * A055954 A366021 A365453
KEYWORD
nonn,base,look
AUTHOR
Seiichi Manyama, Sep 28 2018
STATUS
approved