OFFSET
1,3
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
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]
PROG
(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
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
T. D. Noe, Oct 23 2012
STATUS
approved