|
%I #15 Oct 05 2019 04:45:05
%S 8,0,512,8000,74088,804357,8000000,74088000,804357000,9474296896,
%T 99832769119,999100269973,9970304382667,99910262316808,
%U 999100269973000,9981565340125231,99912200160380167,999100269973000000
%N Largest n-digit cube whose sum of digits is also a cube, or 0 if there is no such number.
%t Join[{8,0},Table[Module[{c=Floor[Surd[10^n-1,3]]^3},While[!IntegerQ[ Surd[Total[IntegerDigits[c]],3]],c=(Surd[c,3]-1)^3];c],{n,3,20}]] (* _Harvey P. Dale_, May 28 2015 *)
%Y Cf. A053058, A180737.
%K nonn,base,easy
%O 1,1
%A _Daniel Mondot_, Oct 08 2010
%E Corrected by _Arkadiusz Wesolowski_ at the suggestion of _T. D. Noe_, Jun 08 2011
|
