|
|
|
|
0, 2, 4, 6, 8, 10, 7, 14, 21, 28, 35, 42, 14, 21, 28, 35, 42, 49, 21, 28, 35, 42, 49, 56, 28, 35, 42, 49, 56, 63, 35, 42, 49, 56, 63, 70, 37, 49, 86, 123, 160, 197, 49, 86, 123, 160, 197, 234, 86, 123, 135, 172, 209, 246, 123, 160, 172, 184, 221, 258, 160, 197, 209, 221, 233
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
This sequence is different from A055952.
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[FromDigits[Reverse[#], 6] + FromDigits[#, 6] & [Sort[IntegerDigits[n, 6]]], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
|
|
PROG
|
(PARI) a(n) = my(nd=digits(n, 6)); fromdigits(vecsort(nd), 6) + fromdigits(vecsort(nd, , 4), 6); \\ Michel Marcus, Sep 28 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|