|
|
A240720
|
|
Successive record-setters in Waring's problem Diophantine inequality.
|
|
0
|
|
|
2, 5, 14, 46, 58, 105, 157, 163, 455, 1060, 1256, 2677, 8093, 28277, 33327, 49304
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|