%I #23 Feb 25 2014 01:27:08
%S 6,7,75,88,140,236,591,2296,2729,5615,8980,21595,22551,36848,45545,
%T 282080,471585
%N Values x of successive minima records of k=Log[x]/Log[-d] where d runs through the negative values of x^3-round(sqrt(x^3))^2.
%C k=Log[x]/Log[d] tends down to 2/3 as x tends to infinity.
%t 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
%Y Cf. A232536.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 25 2013
|