OFFSET
1,1
EXAMPLE
For n=7, the maximum sum of digits for a 7-digit cube is A373727(7) = 46 and this is attained by 3 cubes, the smallest of which is 157^3 = 3869893 so that a(7) = 157.
MATHEMATICA
Table[t =SortBy[Map[{#, Total@IntegerDigits[#^3]} &,
Range[Ceiling@CubeRoot[10^(n - 1)], CubeRoot[10^n - 1]]], Last];
Select[t, #[[2]] == t[[-1]][[2]] &][[1, 1]], {n, 18}]
PROG
(C) /* See A373727. */
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zhining Yang, Jan 11 2025
EXTENSIONS
a(26) and a(35) corrected by Kevin Ryde, Apr 03 2025
STATUS
approved
