A319655 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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)