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,3

Links

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

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

Cf. A000578, A004186, A032553.

Sequence in context: A226163 A338622 A004165 * A097255 A115693 A112403

Adjacent sequences: A032551 A032552 A032553 * A032555 A032556 A032557

Keyword

nonn,base,look

Author

Patrick De Geest, Apr 15 1998

Status

approved