login
Position of first even digit after decimal point in sqrt(n).
1

%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_