|
|
A232536
|
|
Values x of successive minima records of k=Log[x]/Log[d] where d runs through the positive values of x^3-round(sqrt(x^3))^2.
|
|
1
|
|
|
3, 5, 11, 87, 148, 337, 735, 1959, 2142, 2312, 3998, 7144, 11676, 11768, 21623, 36880, 53629
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
k=Log[x]/Log[d] tends down to 2/3 as x tends to infinity.
|
|
LINKS
|
|
|
MATHEMATICA
|
kk = 2; Do[d = x^3 - Round[Sqrt[x^3]]^2; If[d != 0, If[d > 0, w = Log[x]/Log[d]; If[w < kk, kk = w; AppendTo[aa, x]]]], {x, 1, 1000000}]; aa
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|