OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..3321
MAPLE
a:= n-> parse(cat(sort(convert(2^n, base, 10), `>`)[])):
seq(a(n), n=0..50); # Alois P. Heinz, Jan 21 2020
MATHEMATICA
FromDigits[Reverse[Sort[IntegerDigits[#]]]]&/@(2^Range[0, 40]) (* Harvey P. Dale, Mar 06 2020 *)
PROG
(Magma) [Seqint(Sort(Intseq(2^n))):n in [0..31]]; // Marius A. Burtea, Oct 06 2019
(Python)
def A028910(n):
return int(''.join(sorted(str(2**n), reverse=True))) # Chai Wah Wu, Feb 19 2021
CROSSREFS
The following are parallel families: A000079 (2^n), A004094 (2^n reversed), A028909 (2^n sorted up), A028910 (2^n sorted down), A036447 (double and reverse), A057615 (double and sort up), A263451 (double and sort down); A000244 (3^n), A004167 (3^n reversed), A321540 (3^n sorted up), A321539 (3^n sorted down), A163632 (triple and reverse), A321542 (triple and sort up), A321541 (triple and sort down).
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, Apr 15 1998
STATUS
approved