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.

3, 5, 11, 87, 148, 337, 735, 1959, 2142, 2312, 3998, 7144, 11676, 11768, 21623, 36880, 53629

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

Sequence in context: A182354 A046928 A089070 * A168040 A068157 A062530

Adjacent sequences: A232533 A232534 A232535 * A232537 A232538 A232539

Keyword

nonn

Author

Artur Jasinski, Nov 25 2013

Status

approved