OFFSET
1,1
COMMENTS
k = log(x)/log(d) tends down to 2/3 as x tends to infinity.
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,more
AUTHOR
Artur Jasinski, Nov 25 2013
EXTENSIONS
a(18)-a(31) from Amiram Eldar, Oct 23 2024
STATUS
approved