S001037


Numbers that are not the sum of 13 nonnegative 5-th powers.

14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 107, 108, 109, 110, 111, 112, 113

1

S001037

There are 32185 terms in this sequence, ending with 786159, which means that all numbers greater than 786159 can be written as the sum of 13 nonnegative 5-th powers. Note that the Mathematica program prints only the last 100 terms.

T. D. Noe, Plot of 32185 terms

T. D. Noe, Table of 1000 terms

Wikipedia, Waring’s problem

(Mma) nn = 16; lim = nn^5; t13 = Table[0, {lim}]; Do[num = i^5 + j^5 + k^5 + l^5 + m^5 + n^5 + o^5 + p^5 + q^5 + r^5 + s^5 + t^5 + u^5; If[0 < num <= lim, t13[[num]]++], {i, 0, nn}, {j, i, nn}, {k, j, nn}, {l, k, nn}, {m, l, nn}, {n, m, nn}, {o, n, nn}, {p, o, nn}, {q, p, nn}, {r, q, nn}, {s, r, nn}, {t, s, nn}, {u, t, nn}]; Take[Flatten[Position[t13, 0]], -100]

Cf. S001033-S001060.

nonn,fini

T. D. Noe, May 25 2017

© Tony D Noe 2014-2017