|
%I #6 Nov 06 2012 16:31:06
%S 0,1,1024,1025,59049,60073,60074,1048576,1107625,1108649,1108650,
%T 9765625,10814201,10873250,10874274,10874275,60466176,70231801,
%U 71280377,71339426,71340450,71340451,282475249,342941425,352707050,353755626,353814675,353815699
%N Numbers which are the sums of consecutive tenth powers.
%H T. D. Noe, <a href="/A217850/b217850.txt">Table of n, a(n) for n = 1..1000</a>
%t 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]
%Y Cf. A034705, A217843-A217849.
%K nonn
%O 1,3
%A _T. D. Noe_, Oct 23 2012
|
