cp's OEIS Frontend

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.

A217846 Numbers which are the sums of consecutive sixth powers.

This page as a plain text file.
%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