|
%I #20 Nov 14 2021 10:43:40
%S 0,1,8,72,64,521,621,433,521,972,1000,3311,8721,9721,7442,7533,9640,
%T 9431,8532,9865,8000,9621,86410,76211,84321,65521,77651,98631,95221,
%U 98432,72000,99721,87632,97533,94330,87542,66654,65530,87542,99531
%N Arrange digits of cubes in descending order.
%H Robert Israel, <a href="/A032554/b032554.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A004186(A000578(n)). - _Michel Marcus_, Mar 12 2020
%p f:= proc(n) local L,i;
%p L:= sort(convert(n^3,base,10));
%p add(L[i]*10^(i-1),i=1..nops(L))
%p end proc:
%p map(f, [$0..100]); # _Robert Israel_, Mar 12 2020
%t Table[FromDigits[Sort[IntegerDigits[n^3],Greater]],{n,0,40}] (* _Harvey P. Dale_, Nov 14 2021 *)
%Y Cf. A000578, A004186, A032553.
%K nonn,base,look
%O 0,3
%A _Patrick De Geest_, Apr 15 1998
|
