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, 2533636, 3041076, 13428046, 78877882, 263457906, 792970403

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

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,more

Author

Artur Jasinski, Nov 25 2013

Extensions

a(18)-a(23) from Amiram Eldar, Oct 23 2024

Status

approved