OFFSET
1,1
EXAMPLE
For n=7, among cubes which are 7 digits long the maximum sum of digits is A373727(7) = 46 and this is attained by 3 cubes, the largest of which is 208^3 = 8998912 so that a(7) = 208.
MATHEMATICA
Table[SortBy[Map[{#, Total@IntegerDigits[#^3]} &,
Range[Ceiling@CubeRoot[10^(n - 1)], CubeRoot[10^n - 1]]],
Last][[-1]][[1]], {n, 18}]
PROG
(C) /* See A373727. */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zhining Yang, Jan 11 2025
STATUS
approved
