%I #17 Apr 17 2019 10:07:54
%S 1,1,3,1,1,1,1,1,1,2,3,1,1,2,1,1,2,1,3,1,2,1,4,1,1,1,3,1,2,1,2,1,2,1,
%T 3,1,1,2,1,2,1,1,4,1,2,2,1,2,1,1,2,1,1,2,1,1,2,1,1,2,1,1,4,1,1,2,2,1,
%U 2,2,1,1,2,1,1,7,3,1,1,2,1,1,3,2,1,1,2
%N Position of first even digit after decimal point in sqrt(n).
%H T. D. Noe, <a href="/A001165/b001165.txt">Table of n, a(n) for n = 1..1000</a> (corrected by Sean A. Irvine, April 17 2019)
%t Flatten[Table[First[Position[Rest[RealDigits[Sqrt[n],10,20][[1]]], _?(EvenQ[#]&)]],{n,100}]] (* _Harvey P. Dale_, Oct 27 2011 *)
%K nonn,base
%O 1,3
%A _Howard Givner_