A217847 Numbers which are the sums of consecutive seventh powers.
0, 1, 128, 129, 2187, 2315, 2316, 16384, 18571, 18699, 18700, 78125, 94509, 96696, 96824, 96825, 279936, 358061, 374445, 376632, 376760, 376761, 823543, 1103479, 1181604, 1197988, 1200175, 1200303, 1200304, 2097152, 2920695, 3200631, 3278756, 3295140
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
nMax = 10^7; t = {0}; Do[k = n; s = 0; While[s = s + k^7; s <= nMax, AppendTo[t, s]; k++], {n, nMax^(1/7)}]; t = Union[t]