|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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:
|
|
MATHEMATICA
|
Table[FromDigits[Sort[IntegerDigits[n^3], Greater]], {n, 0, 40}] (* Harvey P. Dale, Nov 14 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|