OFFSET
1,3
COMMENTS
Conjecture: a(n) = A382131(n) - n.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..500
MATHEMATICA
a[n_]:=Floor[NSolveValues[k*Log[(k+n)]==(k+1)*Log[(k+1)], k, Reals]][[-1]]+1; Array[a, 30] (* James C. McMahon, Aug 31 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Dwight Boddorf, Aug 23 2025
EXTENSIONS
More terms from Hugo Pfoertner, Aug 23 2025
STATUS
approved
