|
|
A198831
|
|
Successive records in maximal positive distance d = x^3 - y^2.
|
|
0
|
|
|
0, 4, 20, 28, 39, 47, 81, 135, 152, 207, 216, 270, 496, 546, 615, 732, 832, 1148, 1208, 1343, 1391, 1541, 1750, 2000, 2260, 2548, 2575, 2825, 3679, 3807, 4220, 4604, 5076, 5508, 5835, 5859, 6291, 7538, 7656, 8188, 8423, 8712, 8964, 12092, 12205, 12511, 12926
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
aa = {}; bb = {}; max = -1; Do[kk = x^3 - Floor[x^(3/2)]^2; If[kk > max, AppendTo[aa, kk]; AppendTo[bb, x]; max = kk], {x, 1, 10000}]; aa
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|