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

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

Offset: 1

Author

Howard Givner

Keywords

• nonn
• base

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000 (corrected by Sean A. Irvine, April 17 2019)

Programs

Mathematica

Flatten[Table[First[Position[Rest[RealDigits[Sqrt[n],10,20][[1]]], ?(EvenQ[#]&)]],{n,100}]] (* _Harvey P. Dale, Oct 27 2011 *)