Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #21 Aug 06 2021 05:53:17
%S -1,8,4,-1,5,6,8,5,-1,4,8,2,8,0,5,-1,8,3,1,0,3,3,6,0,-1,6,8,4,9,8,9,7,
%T 1,6,2,-1,4,3,1,1,9,1,9,1,1,4,7,4,-1,9,0,4,6,0,3,0,1,4,3,0,3,2,6,-1,1,
%U 7,0,7,5,1,0,6,9,9,9,5,5,9,2,3,-1,2,6,2
%N a(n) is the last digit to appear in sqrt(n) (or -1 if n is a square).
%C For the digit position in sqrt(n) at which the digit a(n) first appears, see A343740.
%F a(100^q*n) = a(n), q > 0. - _Bernard Schott_, Jul 24 2021
%e a(2)=8 because 8 is the last digit to appear in sqrt(2) = 1.414213562373095048...;
%e a(24)=0 because 0 is the last digit to appear in sqrt(24) = 4.898979485566356196394568149411782783931894961313340...
%t Table[If[IntegerQ@ Sqrt@ n, -1, Function[s, FirstPosition[#, Max@ #][[1]] - 1 &@ Array[FirstPosition[s, #][[1]] &, 10, 0]]@ RealDigits[Sqrt[n], 10, 120][[1]]], {n, 84}] (* _Michael De Vlieger_, Jul 06 2021 *)
%o (Python 3.8+)
%o from math import isqrt
%o def A343739(n):
%o i = isqrt(n)
%o if i**2 == n:
%o return -1
%o m, dset = n, set()
%o for d in (int(s) for s in str(i)):
%o dset.add(d)
%o if len(dset) == 10:
%o return d
%o while len(dset) < 10:
%o m *= 100
%o d = isqrt(m) % 10
%o dset.add(d)
%o return d # _Chai Wah Wu_, Jul 07 2021
%Y Cf. A023961, A343740, A343741, A343742.
%K sign,base
%O 1,2
%A _Jon E. Schoenfield_, Jul 05 2021