OFFSET
0,2
COMMENTS
This sequence is different from A055956.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..4095
MATHEMATICA
Table[FromDigits[Reverse[#], 8] + FromDigits[#, 8] & [Sort[IntegerDigits[n, 8]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
PROG
(PARI) a(n) = my(nd=digits(n, 8)); fromdigits(vecsort(nd), 8) + fromdigits(vecsort(nd, , 4), 8); \\ Michel Marcus, Sep 28 2018
CROSSREFS
KEYWORD
AUTHOR
Seiichi Manyama, Sep 28 2018
STATUS
approved