login
Largest n-digit cube whose sum of digits is also a cube, or 0 if there is no such number.
1

%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