A373994 a(n) is the largest digit sum of all n-digit sixth powers.
1, 10, 18, 19, 27, 28, 45, 37, 46, 64, 64, 81, 82, 82, 91, 100, 100, 118, 117, 126, 136, 136, 154, 154, 163, 163, 172, 181, 181, 190, 199, 208, 217, 226, 235, 235, 243, 244, 261, 262, 280, 280, 280, 289, 298, 298, 307, 325, 325, 325, 334, 352, 352, 361, 370
Offset: 1
Examples
a(6) = 28 because 28 is the largest digital sum encountered among all 6-digit sixth powers (117649, 262144, 531441).
Links
- Kevin Ryde, C Code
Programs
-
C
/* See links. */
-
Mathematica
Table[Max@Map[Total@IntegerDigits[#^6] &, Range[Ceiling[10^((n - 1)/6)], Floor[(10^n-1)^(1/6)]]], {n, 42}]