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

Links

Table of n, a(n) for n=1..18.

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

Crossrefs

Cf. A053058, A180737.

Sequence in context: A221421 A371990 A013456 * A076107 A076952 A209914

Adjacent sequences: A180735 A180736 A180737 * A180739 A180740 A180741

Keyword

nonn,base,easy

Author

Daniel Mondot, Oct 08 2010

Extensions

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

Status

approved