A319655 Write n in 7-ary, sort digits into increasing order.

0, 1, 2, 3, 4, 5, 6, 1, 8, 9, 10, 11, 12, 13, 2, 9, 16, 17, 18, 19, 20, 3, 10, 17, 24, 25, 26, 27, 4, 11, 18, 25, 32, 33, 34, 5, 12, 19, 26, 33, 40, 41, 6, 13, 20, 27, 34, 41, 48, 1, 8, 9, 10, 11, 12, 13, 8, 57, 58, 59, 60, 61, 62, 9, 58, 65, 66, 67, 68, 69, 10, 59, 66, 73

Offset

0,3

Links

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

Maple

a:= n-> (l-> add(l[-i]*7^(i-1), i=1..nops(l)))(sort(convert(n, base, 7))):
seq(a(n), n=0..73);  # Alois P. Heinz, Aug 07 2024

Mathematica

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

Prog

(Ruby)
def A(k, n)
  (0..n).map{|i| i.to_s(k).split('').sort.join.to_i(k)}
end
p A(7, 100)
(PARI) a(n) = fromdigits(vecsort(digits(n, 7)), 7); \\ Michel Marcus, Sep 25 2018

Crossrefs

b-ary: A038573 (b=2), A038574 (b=3), A319652 (b=4), A319653 (b=5), A319654 (b=6), this sequence (b=7), A319656 (b=8), A319657 (b=9), A004185 (b=10).

Cf. A165071, A319724.

Sequence in context: A160377 A373028 A269165 * A328018 A242603 A106608

Adjacent sequences: A319652 A319653 A319654 * A319656 A319657 A319658

Keyword

nonn,base,look

Author

Seiichi Manyama, Sep 25 2018

Status

approved