A343741 Record high values in A343740.

19, 23, 37, 39, 45, 52, 58, 69, 110, 118, 132, 133, 136, 139, 143, 152, 158, 164, 169, 173, 174, 187, 195, 204, 215, 217

Offset: 1

Author

Jon E. Schoenfield, Jul 05 2021

Keywords

• nonn
• base
• hard
• more

Crossrefs

Cf. A343739, A343740, A343742.

Programs

Mathematica

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 *)

Extensions

a(24)-a(26) from Chai Wah Wu, Jul 06 2021