This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A217846 #9 Apr 22 2020 00:16:16 %S A217846 0,1,64,65,729,793,794,4096,4825,4889,4890,15625,19721,20450,20514, %T A217846 20515,46656,62281,66377,67106,67170,67171,117649,164305,179930, %U A217846 184026,184755,184819,184820,262144,379793,426449,442074,446170,446899,446963,446964,531441 %N A217846 Numbers which are the sums of consecutive sixth powers. %H A217846 T. D. Noe, <a href="/A217846/b217846.txt">Table of n, a(n) for n = 1..1000</a> %t A217846 nMax = 10^6; t = {0}; Do[k = n; s = 0; While[s = s + k^6; s <= nMax, AppendTo[t, s]; k++], {n, nMax^(1/6)}]; t = Union[t] %o A217846 (PARI) list(lim)=my(v=List(apply(n->n^6, [0..sqrtnint(lim\=1,6)])),s); for(n=2,lim, s=n*(n-1)*(2*n-1)*(3*n^4-6*n^3+3*n+1)/42; if(s>lim,break); for(k=n,lim, s+=k^6-(k-n)^6; if(s>lim,break); listput(v,s))); Set(v) \\ _Charles R Greathouse IV_, Apr 22 2020 %Y A217846 Subsequences include A001014 and A008516. %Y A217846 Cf. A034705, A217843-A217850. %K A217846 nonn,easy %O A217846 1,3 %A A217846 _T. D. Noe_, Oct 23 2012