OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
MAPLE
f:= proc(n) local L, i;
L:= sort(convert(n^3, base, 10));
add(L[i]*10^(i-1), i=1..nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, Mar 12 2020
MATHEMATICA
Table[FromDigits[Sort[IntegerDigits[n^3], Greater]], {n, 0, 40}] (* Harvey P. Dale, Nov 14 2021 *)
CROSSREFS
KEYWORD
AUTHOR
Patrick De Geest, Apr 15 1998
STATUS
approved