A232008 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.

6, 7, 75, 88, 140, 236, 591, 2296, 2729, 5615, 8980, 21595, 22551, 36848, 45545, 282080, 471585

Offset

1,1

Comments

k=Log[x]/Log[d] tends down to 2/3 as x tends to infinity.

Links

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

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

Cf. A232536.

Sequence in context: A256292 A042877 A219517 * A156791 A223532 A041081

Adjacent sequences: A232005 A232006 A232007 * A232009 A232010 A232011

Keyword

nonn

Author

Artur Jasinski, Nov 25 2013

Status

approved