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

8, 0, 512, 8000, 74088, 804357, 8000000, 74088000, 804357000, 9474296896, 99832769119, 999100269973, 9970304382667, 99910262316808, 999100269973000, 9981565340125231, 99912200160380167, 999100269973000000

Offset: 1

Author

Daniel Mondot, Oct 08 2010

Keywords

• nonn
• base
• easy

Crossrefs

Cf. A053058, A180737.

Programs

Mathematica

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

Extensions

Corrected by Arkadiusz Wesolowski at the suggestion of T. D. Noe, Jun 08 2011