login
A032554
Arrange digits of cubes in descending order.
3
0, 1, 8, 72, 64, 521, 621, 433, 521, 972, 1000, 3311, 8721, 9721, 7442, 7533, 9640, 9431, 8532, 9865, 8000, 9621, 86410, 76211, 84321, 65521, 77651, 98631, 95221, 98432, 72000, 99721, 87632, 97533, 94330, 87542, 66654, 65530, 87542, 99531
OFFSET
0,3
LINKS
FORMULA
a(n) = A004186(A000578(n)). - Michel Marcus, Mar 12 2020
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
nonn,base,look
AUTHOR
Patrick De Geest, Apr 15 1998
STATUS
approved