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,1

Links

Table of n, a(n) for n=1..26.

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

Crossrefs

Cf. A343739, A343740, A343742.

Sequence in context: A108271 A351121 A245585 * A060269 A245382 A075585

Adjacent sequences: A343738 A343739 A343740 * A343742 A343743 A343744

Keyword

nonn,base,hard,more

Author

Jon E. Schoenfield, Jul 05 2021

Extensions

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

Status

approved