A240720 Successive record-setters in Waring's problem Diophantine inequality.

2, 5, 14, 46, 58, 105, 157, 163, 455, 1060, 1256, 2677, 8093, 28277, 33327, 49304

Offset: 1

Author

Jean-François Alcover, Apr 11 2014

Keywords

• nonn
• more

Links

• Eric Weisstein's MathWorld, Waring's Problem.
• Wikipedia, Waring's Problem.

Crossrefs

Cf. A002804.

Programs

Mathematica

Reap[For[record = 1; n = 2, n < 10^9, n++, r = 1 - (3/4)^n - FractionalPart[(3/2)^n]; If[r < record, record = r; Print[{n, record // N}]; Sow[n]]]][[2, 1]]