A319722 Write n in 5-ary, sort digits into decreasing order.
0, 1, 2, 3, 4, 5, 6, 11, 16, 21, 10, 11, 12, 17, 22, 15, 16, 17, 18, 23, 20, 21, 22, 23, 24, 25, 30, 55, 80, 105, 30, 31, 56, 81, 106, 55, 56, 61, 86, 111, 80, 81, 86, 91, 116, 105, 106, 111, 116, 121, 50, 55, 60, 85, 110, 55, 56, 61, 86, 111, 60, 61, 62, 87, 112, 85
Offset: 0
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..3124
Crossrefs
Programs
-
Mathematica
Table[FromDigits[ReverseSort[IntegerDigits[n, 5]], 5], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
-
PARI
a(n) = fromdigits(vecsort(digits(n, 5), , 4), 5); \\ Michel Marcus, Sep 26 2018
-
Ruby
def A(k, n) (0..n).map{|i| i.to_s(k).split('').sort.reverse.join.to_i(k)} end p A(5, 100)
Formula
n <= a(n) < 5n. - Charles R Greathouse IV, Aug 07 2024