A032554 Arrange digits of cubes in descending order.

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

Author

Patrick De Geest, Apr 15 1998

Keywords

• nonn
• base
• look

Links

• Robert Israel, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A000578, A004186, A032553.

Programs

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 *)

Formula

a(n) = A004186(A000578(n)). - Michel Marcus, Mar 12 2020