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,1

Links

Table of n, a(n) for n=1..16.

Eric Weisstein's MathWorld, Waring's Problem.

Wikipedia, Waring's Problem.

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]]

Crossrefs

Cf. A002804.

Sequence in context: A285201 A007823 A006391 * A232622 A149895 A149896

Adjacent sequences: A240717 A240718 A240719 * A240721 A240722 A240723

Keyword

nonn,more,changed

Author

Jean-François Alcover, Apr 11 2014

Status

approved