Number of numbers between n-1 and n that are the sum of consecutive cubes.
0, 0, 1, 2, 3, 1, 3, 4, 2, 5, 7, 1, 7, 3, 8, 4, 7, 4, 9, 4, 9, 5, 8, 6, 12, 4, 11, 6, 12, 5, 14, 4, 10, 9, 9, 12, 6, 16, 6, 13, 8, 7, 17, 6, 17, 5, 11, 13, 9, 18, 7, 12, 14, 11, 19, 6, 10, 18, 7, 17, 10, 11, 21, 9, 12, 18, 11, 16, 13, 11, 22, 9, 12, 23, 8, 13
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 = 3; 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