|
%I #4 Oct 23 2012 15:05:28
%S 0,1,16,17,81,97,98,256,337,353,354,625,881,962,978,979,1296,1921,
%T 2177,2258,2274,2275,2401,3697,4096,4322,4578,4659,4675,4676,6497,
%U 6561,7793,8418,8674,8755,8771,8772,10000,10657,13058,14354,14641,14979,15235,15316
%N Numbers which are the sums of consecutive fourth powers.
%H T. D. Noe, <a href="/A217844/b217844.txt">Table of n, a(n) for n = 1..1000</a>
%t nMax = 20000; t = {0}; Do[k = n; s = 0; While[s = s + k^4; s <= nMax, AppendTo[t, s]; k++], {n, nMax^(1/4)}]; t = Union[t]
%Y Cf. A034705, A217843-A217850.
%K nonn
%O 1,3
%A _T. D. Noe_, Oct 23 2012
|
