OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..6560
FORMULA
n <= a(n) < 3n. - Charles R Greathouse IV, Aug 07 2024
MATHEMATICA
Table[FromDigits[ReverseSort[IntegerDigits[n, 3]], 3], {n, 0, 100}] (* Paolo Xausa, Aug 07 2024 *)
PROG
(Ruby)
def A(k, n)
(0..n).map{|i| i.to_s(k).split('').sort.reverse.join.to_i(k)}
end
p A(3, 100)
(PARI) a(n) = fromdigits(vecsort(digits(n, 3), , 4), 3); \\ Michel Marcus, Sep 25 2018
(Python)
from gmpy2 import digits
def A319651(n):
return int(''.join(sorted(digits(n, 3), reverse=True)), 3) # Chai Wah Wu, Sep 26 2018
CROSSREFS
KEYWORD
AUTHOR
Seiichi Manyama, Sep 25 2018
STATUS
approved