OFFSET
1,1
MATHEMATICA
Array[#1 + Position[#2, Max[#2]][[-1, -1]] - 1 & @@ {#1, Map[Total@ IntegerDigits[#^2] &, Range[#1, #2]]} & @@ {10^(# - 1), 10^# - 1} &, 8] (* Michael De Vlieger, Oct 12 2021 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Bernardo Recamán and Freddy Barrera, Oct 10 2021
EXTENSIONS
a(11) from Chai Wah Wu, Nov 18 2021
a(12)-a(13) from Martin Ehrenstein, Nov 20 2021
STATUS
approved