Number of numbers between n-1 and n that are the sum of consecutive fourth powers.
0, 0, 1, 2, 3, 4, 5, 1, 6, 6, 3, 7, 8, 4, 8, 10, 3, 11, 12, 4, 12, 4, 13, 15, 4, 15, 6, 16, 5, 15, 19, 6, 17, 7, 18, 7, 19, 9, 19, 9, 19, 11, 17, 17, 15, 23, 9, 25, 6, 25, 10, 26, 9, 26, 8, 29, 9, 28, 10, 26, 11, 20, 20, 16, 24, 15, 27, 13, 30, 13, 29, 16, 28, 14
1
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 = 4; 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]]
nonn
T. D. Noe, May 14 2015