A038586 Write n in ternary then sort the digits.

0, 1, 2, 1, 11, 12, 2, 12, 22, 1, 11, 12, 11, 111, 112, 12, 112, 122, 2, 12, 22, 12, 112, 122, 22, 122, 222, 1, 11, 12, 11, 111, 112, 12, 112, 122, 11, 111, 112, 111, 1111, 1112, 112, 1112, 1122, 12, 112, 122, 112, 1112, 1122, 122, 1122, 1222, 2, 12, 22, 12, 112

Offset

0,3

Links

Table of n, a(n) for n=0..58.

Michael Gilleland, Some Self-Similar Integer Sequences

Maple

a:= n-> parse(cat(sort(convert(n, base, 3))[])):
seq(a(n), n=0..58);  # Alois P. Heinz, Nov 24 2025

Mathematica

a[n_]:=FromDigits[Sort[IntegerDigits[n, 3]]]; Array[a, 59, 0] (* Stefano Spezia, Nov 24 2025 *)

Crossrefs

Cf. A038573.

Sequence in context: A052037 A213302 A308846 * A140316 A295852 A088587

Adjacent sequences: A038583 A038584 A038585 * A038587 A038588 A038589

Keyword

nonn,easy,base

Author

N. J. A. Sloane

Extensions

More terms from Erich Friedman

Status

approved