S000634


Number of numbers between n-1 and n that are the sum of consecutive fifth powers.

0, 0, 1, 2, 3, 4, 5, 6, 2, 6, 8, 8, 4, 8, 10, 12, 4, 11, 14, 3, 13, 16, 5, 15, 17, 6, 15, 19, 6, 19, 19, 7, 21, 12, 15, 22, 9, 22, 25, 7, 24, 12, 23, 26, 9, 26, 12, 25, 30, 11, 26, 12, 30, 16, 26, 31, 12, 31, 13, 31, 17, 29, 36, 13, 36, 11, 36, 16, 33, 25, 27

1

S000634

At higher powers, the plot becomes even more complex.

T. D. Noe, Plot of 10000 terms

T. D. Noe, Table of 10000 terms

(Mma) nMax = 100; pwr = 5; t = Reap[Do[k = n; s = 0; While[s = s + k^pwr; s <= nMax^pwr, Sow[s]; k++], {n, nMax}]]; t = Union[t[[2, 1]]]; t = Complement[t, Range[0, nMax]^pwr]; ta = Tally[Floor[t^(1/pwr)]]; tb = Complement[Range[0, nMax - 1], Transpose[ta][[1]]]; tc = Transpose[{tb, Table[0, {Length[tb]}]}]; Transpose[Union[ta, tc]][[2]]

Cf. A217845S000627-S000636.

nonn

T. D. Noe, May 14 2015

© Tony D Noe 2014-2015