A217850 Numbers which are the sums of consecutive tenth powers.
0, 1, 1024, 1025, 59049, 60073, 60074, 1048576, 1107625, 1108649, 1108650, 9765625, 10814201, 10873250, 10874274, 10874275, 60466176, 70231801, 71280377, 71339426, 71340450, 71340451, 282475249, 342941425, 352707050, 353755626, 353814675, 353815699
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
nMax = 10^10; t = {0}; Do[k = n; s = 0; While[s = s + k^10; s <= nMax, AppendTo[t, s]; k++], {n, nMax^(1/10)}]; t = Union[t]