|
%I #17 Jul 20 2021 03:39:59
%S 19,23,37,39,45,52,58,69,110,118,132,133,136,139,143,152,158,164,169,
%T 173,174,187,195,204,215,217
%N Record high values in A343740.
%t Rest@ Union@ FoldList[Max, Table[If[IntegerQ@ Sqrt@ n, -1, Function[s, Max@ Array[FirstPosition[s, #][[1]] &, 10, 0]]@ RealDigits[Sqrt[n], 10, 300][[1]]], {n, 10^5}]] (* _Michael De Vlieger_, Jul 06 2021 *)
%Y Cf. A343739, A343740, A343742.
%K nonn,base,hard,more
%O 1,1
%A _Jon E. Schoenfield_, Jul 05 2021
%E a(24)-a(26) from _Chai Wah Wu_, Jul 06 2021
|
