A319653 Write n in 5-ary, sort digits into increasing order.

0, 1, 2, 3, 4, 1, 6, 7, 8, 9, 2, 7, 12, 13, 14, 3, 8, 13, 18, 19, 4, 9, 14, 19, 24, 1, 6, 7, 8, 9, 6, 31, 32, 33, 34, 7, 32, 37, 38, 39, 8, 33, 38, 43, 44, 9, 34, 39, 44, 49, 2, 7, 12, 13, 14, 7, 32, 37, 38, 39, 12, 37, 62, 63, 64, 13, 38, 63, 68, 69, 14, 39, 64, 69, 74, 3

Offset

0,3

Links

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

Mathematica

Table[FromDigits[Sort[IntegerDigits[n, 5]], 5], {n, 0, 100}] (* Harvey P. Dale, Feb 29 2024 *)

Prog

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

Crossrefs

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

Cf. A165032, A319722.

Sequence in context: A109680 A366373 A277826 * A072438 A132739 A060791

Adjacent sequences: A319650 A319651 A319652 * A319654 A319655 A319656

Keyword

nonn,base,look

Author

Seiichi Manyama, Sep 25 2018

Status

approved